makelilo.pl revision 677833bc953b6cb418c701facbdcf4aa18d6c44e
use strict;
use bytes;
$#ARGV >= 1 or die "Usage: $0 liloprefix file ...\n";
open(L, "$ARGV[0]") or die "$ARGV[0]: $!\n";
undef($/);
my $liloprefix = <L>;
close(L);
shift(@ARGV);
my $totalsize = 0;
}
my $pad = 0;
}
print STDERR "LILO payload is $totalsize bytes\n";
$totalsize += 16;
$totalsize >>= 4;
print $liloprefix;
next unless open(I, "$file");
undef($/);
my $data = <I>;
print $data;
close(I);
}
print "\x0" x $pad;
exit(0);