7 use lib "$FindBin::Bin";
8 use Option::ROM qw ( :all );
11 or die "Usage: $0 rom-file-1 rom-file-2 ... > multi-rom-file\n";
13 while ( my $romfile = shift @romfiles ) {
16 my $rom = new Option::ROM;
17 $rom->load ( $romfile );
19 # Tag final image as non-final in all except the final ROM
22 $image = $image->next_image() while $image->next_image();
23 $image->pci_header->{last_image} &= ~PCI_LAST_IMAGE;
24 $image->fix_checksum();
27 # Write ROM file to STDOUT