[Sandweb-commit] CVS: sandweb/lib/SandWeb/File Unix.pm,1.4,1.5

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

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

Modified Files:
	Unix.pm 
Log Message:
checks for null ( so tests don't fail )


Index: Unix.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/File/Unix.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -U2 -r1.4 -r1.5
--- Unix.pm	31 Jul 2002 19:46:30 -0000	1.4
+++ Unix.pm	14 Aug 2002 06:01:55 -0000	1.5
@@ -49,12 +49,12 @@
 	my @file_info = split(' ', $raw_file_info);
 	
-	my $perms = $file_info[0];
-	my $inodes = $file_info[1];
-	my $owner = $file_info[2];
-	my $group = $file_info[3];
-	my $size = $file_info[4];
-	my $month = $file_info[5];
-	my $day = $file_info[6];
-	my $time = $file_info[7];
+	my $perms = $file_info[0] || '';
+	my $inodes = $file_info[1] || '';
+	my $owner = $file_info[2] || '';
+	my $group = $file_info[3] || '';
+	my $size = $file_info[4] || '';
+	my $month = $file_info[5] || '';
+	my $day = $file_info[6] || '';
+	my $time = $file_info[7] || '';
 
 	my $self = bless {