blob: 5ed389c46ca2e52649f524488b11004a78f13025 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
|
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;
|