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 {
|
