--- t/fs.t 2007/07/10 00:22:00 27 +++ t/fs.t 2007/07/10 01:10:49 28 @@ -30,7 +30,7 @@ my $orig_size = -s "$to/$path"; ok( open( my $fh, $op, "$to/$path" ), "open( $op $path )"); if ( $op eq '>' ) { - cmp_ok( -s "$to/$path", '==', 0, "truncate $to/$path" ); + cmp_ok( -s "$to/$path", '==', 0, "truncated $to/$path" ); print $fh $content; } elsif ( $op eq '>>' ) { cmp_ok( -s "$to/$path", '==', $orig_size, "no truncate $to/$path" ); @@ -143,7 +143,7 @@ cmp_ok( (stat("$to/m"))[3], '==', 1, 'no links' ); my @sizes; - my $size = 65536; + $size = 65536; while ( $size > 1 ) { push @sizes, $size; $size /= 2;