diff options
Diffstat (limited to 'gpxe/src/util/dskpad.pl')
-rwxr-xr-x | gpxe/src/util/dskpad.pl | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/gpxe/src/util/dskpad.pl b/gpxe/src/util/dskpad.pl new file mode 100755 index 00000000..3ae325eb --- /dev/null +++ b/gpxe/src/util/dskpad.pl @@ -0,0 +1,12 @@ +#!/usr/bin/perl -w + +use strict; +use warnings; + +use constant FLOPPYSIZE => 1440 * 1024; + +while ( my $filename = shift ) { + die "$filename is not a file\n" unless -f $filename; + die "$filename is too large\n" unless ( -s $filename <= FLOPPYSIZE ); + truncate $filename, FLOPPYSIZE or die "Could not truncate: $!\n"; +} |