Update of /cvsroot/lxr/lxr/lib/LXR/Files
In directory sc8-pr-cvs6.sourceforge.net:/tmp/cvs-serv32478/lib/LXR/Files
Modified Files:
BK.pm
Log Message:
Fix some more whitespace.
Index: BK.pm
===================================================================
RCS file: /cvsroot/lxr/lxr/lib/LXR/Files/BK.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- BK.pm 20 Dec 2006 19:48:52 -0000 1.3
+++ BK.pm 20 Dec 2006 19:49:29 -0000 1.4
@@ -149,7 +149,7 @@
sub openbkcommand {
my ($self, $command) = @_;
- my $dir = getcwd();
+ my $dir = getcwd();
chdir($self->{'rootpath'});
my $fileh = new IO::File;
$fileh->open($command) or die "Can't execute $command";
@@ -238,12 +238,12 @@
sub get_tree {
my ($self, $release) = @_;
-
+
# Return entire tree as provided by 'bk rset'
# First, check if cache exists
-
+
my $fileh = new IO::File;
-
+
if (-r $self->cachename($release)) {
$fileh->open($self->cachename($release)) or die "Whoops, can't open cached version";
} else {
@@ -261,7 +261,7 @@
$fileh->open($self->cachename($release)) or die "Couldn't open cached version!";
}
}
-
+
my @files = <$fileh>;
close $fileh;
chomp @files;
@@ -276,7 +276,7 @@
my ($self, $release) = @_;
return $self->{'cache'}."/treecache-".$release;
}
-
+
sub canonise {
my $path = shift;
$path =~ s!^/!!;
|
