13 lines
361 B
Diff
13 lines
361 B
Diff
Fixes an error in nrgtool.
|
|
--- a/nrgtool
|
|
+++ b/nrgtool
|
|
@@ -162,7 +162,7 @@ sub process_file {
|
|
}
|
|
seek $nrg, 0, SEEK_SET if ($iff_only);
|
|
seek $nrg, $offset, SEEK_SET unless ($iff_only);
|
|
- while (my $_ = read_chunk($nrg, $iff)) {
|
|
+ while ($_ = read_chunk($nrg, $iff)) {
|
|
if ($_ < -1) {
|
|
warn "ERROR while reading an IFF chunk; aborting\n";
|
|
return;
|