| … | |
… | |
| 12 | require PAR; |
12 | require PAR; |
| 13 | |
13 | |
| 14 | while (my ($filename, $zip) = each %PAR::LibCache) { |
14 | while (my ($filename, $zip) = each %PAR::LibCache) { |
| 15 | for ($zip->memberNames) { |
15 | for ($zip->memberNames) { |
| 16 | next unless /^\/root\/(.*)/; |
16 | next unless /^\/root\/(.*)/; |
| 17 | warn "extract $_ => $ENV{PAR_TEMP}/$1\n";#d# |
|
|
| 18 | $zip->extractMember ($_, "$ENV{PAR_TEMP}/$1") |
17 | $zip->extractMember ($_, "$ENV{PAR_TEMP}/$1") |
| 19 | unless -e "$ENV{PAR_TEMP}/$1"; |
18 | unless -e "$ENV{PAR_TEMP}/$1"; |
| 20 | } |
19 | } |
| 21 | } |
20 | } |
| 22 | |
21 | |
