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