|
Lines 59-62
Link Here
|
| 59 |
next FILE; |
59 |
next FILE; |
| 60 |
} |
60 |
} |
|
|
61 |
if ($name eq "data.tar.lzma") { |
| 62 |
# Found it |
| 63 |
$data = substr($data, 0, $len); |
| 64 |
$filename =~ s/\.deb$/.tar.gz/; |
| 65 |
my $fh = new IO::File(">$filename") |
| 66 |
or die "can't write '$filename': $!"; |
| 67 |
print $fh $data; |
| 68 |
$fh->close(); |
| 69 |
print "$0: wrote '$filename'\n"; |
| 70 |
next FILE; |
| 71 |
} |
| 61 |
|
72 |
|
| 62 |
print "$0: skipping section '$name'\n"; |
73 |
print "$0: skipping section '$name'\n"; |
