| 1 | #!/opt/bin/perl |
1 | #!/opt/bin/perl |
|
|
2 | |
| 2 | our $VERSION = '0.9'; |
3 | our $VERSION = '0.9'; |
| 3 | |
4 | |
| 4 | BEGIN { |
5 | BEGIN { |
| 5 | if (%PAR::LibCache) { |
6 | if (%PAR::LibCache) { |
|
|
7 | @INC = grep ref, @INC; # weed out all paths except pars loader refs |
|
|
8 | |
| 6 | while (my ($filename, $zip) = each %PAR::LibCache) { |
9 | while (my ($filename, $zip) = each %PAR::LibCache) { |
| 7 | for ($zip->memberNames) { |
10 | for ($zip->memberNames) { |
| 8 | next unless /^\/root\/(.*)/; |
11 | next unless /^\/root\/(.*)/; |
| 9 | $zip->extractMember ($_, "$ENV{PAR_TEMP}/$1") |
12 | $zip->extractMember ($_, "$ENV{PAR_TEMP}/$1") |
| 10 | unless -e "$ENV{PAR_TEMP}/$1"; |
13 | unless -e "$ENV{PAR_TEMP}/$1"; |
