Lines Matching refs:filename
22 while ( my $filename = shift ) {
23 die "$filename is not a file\n" unless -f $filename;
24 my $oldsize = -s $filename;
30 $filename, $oldsize, $newsize, $padsize, $byte;
33 sysopen ( my $fh, $filename, ( O_WRONLY | O_APPEND ) )
34 or die "Could not open $filename for appending: $!\n";
36 or die "Could not append to $filename: $!\n";
39 truncate $filename, $newsize
40 or die "Could not resize $filename: $!\n";
42 die "Failed to pad $filename\n"
43 unless ( ( ( -s $filename ) % $blksize ) == 0 );
