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

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

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

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

Index: BK.pm
===================================================================
RCS file: /cvsroot/lxr/lxr/lib/LXR/Files/Attic/BK.pm,v
retrieving revision 1.1.2.6
retrieving revision 1.1.2.7
diff -u -d -r1.1.2.6 -r1.1.2.7
--- BK.pm	14 Feb 2005 00:45:22 -0000	1.1.2.6
+++ BK.pm	14 Feb 2005 00:55:23 -0000	1.1.2.7
@@ -117,6 +117,12 @@
 	return (defined($info));
 }
 
+sub isfile {
+my ($self, $pathname, $release) = @_;
+	my $info = $self->getfileinfo($pathname, $release);
+	return (defined($info));
+}
+	
 sub tmpfile {
 	my ($self, $filename, $release) = @_;
 	my ($tmp,  $buf);