[Lxr-general] [PATCH 4/10] Remove trailing whitespace
Brought to you by:
ajlittoz
From: Jan-Benedict G. <jb...@lu...> - 2006-12-07 10:17:46
|
--- lib/LXR/Files/BK.pm | 12 ++++++------ 1 files changed, 6 insertions(+), 6 deletions(-) diff --git a/lib/LXR/Files/BK.pm b/lib/LXR/Files/BK.pm index dd2c895..93c488f 100644 --- a/lib/LXR/Files/BK.pm +++ b/lib/LXR/Files/BK.pm @@ -149,7 +149,7 @@ sub getannotations { 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 fill_cache { 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 @@ sub get_tree { $fileh->open($self->cachename($release)) or die "Couldn't open cached version!"; } } - + my @files = <$fileh>; close $fileh; chomp @files; @@ -276,7 +276,7 @@ sub cachename { my ($self, $release) = @_; return $self->{'cache'}."/treecache-".$release; } - + sub canonise { my $path = shift; $path =~ s!^/!!; -- 1.4.4.1 |