[Lxr-commits] CVS: lxr/lib/LXR/Files BK.pm,1.1.2.4,1.1.2.5

[Malcolm B. <mb...@us...>]

Update of /cvsroot/lxr/lxr/lib/LXR/Files
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28812/lib/LXR/Files

Modified Files:
      Tag: bk-dev-branch
	BK.pm 
Log Message:
Implement isdir() function

Index: BK.pm
===================================================================
RCS file: /cvsroot/lxr/lxr/lib/LXR/Files/Attic/BK.pm,v
retrieving revision 1.1.2.4
retrieving revision 1.1.2.5
diff -u -d -r1.1.2.4 -r1.1.2.5
--- BK.pm	13 Feb 2005 23:07:06 -0000	1.1.2.4
+++ BK.pm	13 Feb 2005 23:55:36 -0000	1.1.2.5
@@ -91,6 +91,14 @@
 	return sha1_hex($info->{'curpath'}.'-'.$info->{'revision'});	
 }
 
+sub isdir {
+	my ($self, $pathname, $release) = @_;
+	$self->fill_cache($release);
+	$pathname = canonise($pathname);
+	my $info = $tree_cache{$release}{$pathname};
+	return (defined($info));
+}
+
 sub tmpfile {
 	my ($self, $filename, $release) = @_;
 	my ($tmp,  $buf);