diff options
Diffstat (limited to 'isohybrid-acritox')
| -rwxr-xr-x | isohybrid-acritox | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/isohybrid-acritox b/isohybrid-acritox index 42abe6c..23f53ee 100755 --- a/isohybrid-acritox +++ b/isohybrid-acritox @@ -465,8 +465,13 @@ do $bytes = unpack("C", $bytes) - 1; printf("SUSP Entry - %u bytes (0x%X)\n", $bytes+1, $bytes+1) if($debug); } while $bytes > 0; - $sector_blk++; - seek(FIMG, $iso_pos+$first_sector_blk*$bs+$sector_blk*$bs, SEEK_SET) or die "$0: $file: $!\n"; + do { + $sector_blk++; + seek(FIMG, $iso_pos+$first_sector_blk*$bs+$sector_blk*$bs, SEEK_SET) or die "$0: $file: $!\n"; + read(FIMG, $sua_head, 4) > 0 or break; + seek(FIMG, tell(FIMG)-4, SEEK_SET) or die "$0: $file: $!\n"; + ($sig, $len, $version) = unpack("a[2]CC", $sua_head); + } while($sig eq "ER"); # skip ER(Extensions Reference)-SUA, xorriso intersperses this somehow printf("\ndirectory entry at 0x%X:\n", tell(FIMG)) if($debug); read(FIMG, $bytes, 1) > 0 or break; $bytes = unpack("C", $bytes) - 1; |