From: Rob H. <for...@us...> - 2002-01-18 20:52:59
|
Update of /cvsroot/sandweb/sandweb/lib/SandWeb In directory usw-pr-cvs1:/tmp/cvs-serv32297/lib/SandWeb Modified Files: Browse.pm File.pm Log Message: clearing up more -w warnings Index: Browse.pm =================================================================== RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Browse.pm,v retrieving revision 1.27 retrieving revision 1.28 diff -U2 -r1.27 -r1.28 --- Browse.pm 2002/01/18 19:25:08 1.27 +++ Browse.pm 2002/01/18 20:52:55 1.28 @@ -84,6 +84,8 @@ my %row_data; $row_data{LOCATION_LINK} = "$link"; - my $data = join(/ /, @location_full); - push (@location_full, "/$location_link[$count]"); + my $data = join(" ", @location_full); + if ($location_link[$count]) { + push (@location_full, "/$location_link[$count]"); + } $row_data{LOCATION_FULL} = "$data"; $row_data{PROGNAME} = "$progname"; Index: File.pm =================================================================== RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/File.pm,v retrieving revision 1.32 retrieving revision 1.33 diff -U2 -r1.32 -r1.33 --- File.pm 2002/01/18 07:49:31 1.32 +++ File.pm 2002/01/18 20:52:55 1.33 @@ -18,8 +18,10 @@ my $log_obj = $args{'log_obj'}; my $config = $args{'config_obj'}; - my $location = $args{'location'}; - my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size, - $atime,$mtime,$ctime,$blksize,$blocks) - = stat("$location/$filename"); + if ($args{'location'}) { + my $location = $args{'location'}; + my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size, + $atime,$mtime,$ctime,$blksize,$blocks) + = stat("$location/$filename"); + } my $self = bless { |