3ae325eb4658f33d12b95d259c308dc788931f3d
[people/cooldavid/gpxe.git] / src / util / dskpad.pl
1 #!/usr/bin/perl -w
2
3 use strict;
4 use warnings;
5
6 use constant FLOPPYSIZE => 1440 * 1024;
7
8 while ( my $filename = shift ) {
9   die "$filename is not a file\n" unless -f $filename;
10   die "$filename is too large\n" unless ( -s $filename <= FLOPPYSIZE );
11   truncate $filename, FLOPPYSIZE or die "Could not truncate: $!\n";
12 }