[Sandweb-commit] CVS: sandweb/lib/SandWeb File.pm,1.33,1.34

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

Update of /cvsroot/sandweb/sandweb/lib/SandWeb
In directory usw-pr-cvs1:/tmp/cvs-serv1191/lib/SandWeb

Modified Files:
	File.pm 
Log Message:
oops, need to be a little slicker checking for this uninitialized value


Index: File.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/File.pm,v
retrieving revision 1.33
retrieving revision 1.34
diff -U2 -r1.33 -r1.34
--- File.pm	2002/01/18 20:52:55	1.33
+++ File.pm	2002/01/18 20:54:49	1.34
@@ -18,10 +18,8 @@
 	my $log_obj = $args{'log_obj'};
 	my $config = $args{'config_obj'};
-	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 $location = $args{'location'};
+	my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
+		$atime,$mtime,$ctime,$blksize,$blocks)
+		= stat("$location/$filename");
 
 	my $self = bless {