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);
|
