[Sandweb-commit] CVS: sandweb/lib/SandWeb Browse.pm,1.27,1.28 File.pm,1.32,1.33

[Rob H. <for...@us...>]

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 {