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

[Jan-Benedict G. <jb...@us...>]

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!^/!!;