diff options
Diffstat (limited to 'BCD/Genisoimage.pm')
| -rw-r--r-- | BCD/Genisoimage.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/BCD/Genisoimage.pm b/BCD/Genisoimage.pm index 2f031d7..4a5cc42 100644 --- a/BCD/Genisoimage.pm +++ b/BCD/Genisoimage.pm @@ -56,6 +56,7 @@ sub create_idx { open my $idx_file, ">$idx"; foreach (keys %hrpms) { $_ or next; + print $_; my @table = @{ $hrpms{$_} }; # print "$isoconf->{iso}{header}{volumeid} $_-$table[0]-$table[1]\n"; print $idx_file "$isoconf->{iso}{header}{volumeid} $_-$table[0]-$table[1]\n"; @@ -106,7 +107,7 @@ sub create_md5 { sub isohybrid { print_color("$LOG isohybrid the ISO", $color); my $ISOFILE = "$isodir/$isoname.iso"; - #system("isohybrid $iso->{options}{isohybrid} $ISOFILE") == 0 or die "$LOG system isohybrid failed: $?\n"; +# system("isohybrid $iso->{options}{isohybrid} $ISOFILE") == 0 or die "$LOG system isohybrid failed: $?\n"; } sub copy_textfiles { @@ -124,7 +125,7 @@ sub main_iso { print_color("$LOG skipping ISO creation", $color); } else { create_iso; -# isohybrid; + isohybrid; create_md5; } |