| … | |
… | |
| 4 | |
4 | |
| 5 | my $startup_done = sub { }; |
5 | my $startup_done = sub { }; |
| 6 | |
6 | |
| 7 | # do splash-screen thingy on win32 |
7 | # do splash-screen thingy on win32 |
| 8 | BEGIN { |
8 | BEGIN { |
| 9 | if ($^O eq "MSWin32") { |
9 | if (%PAR::LibCache && $^O eq "MSWin32") { |
| 10 | while (my ($filename, $zip) = each %PAR::LibCache) { |
10 | while (my ($filename, $zip) = each %PAR::LibCache) { |
| 11 | $zip->extractMember ("SPLASH.bmp", "$ENV{PAR_TEMP}/SPLASH.bmp"); |
11 | $zip->extractMember ("SPLASH.bmp", "$ENV{PAR_TEMP}/SPLASH.bmp"); |
| 12 | } |
12 | } |
| 13 | |
13 | |
| 14 | require Win32::GUI::SplashScreen; |
14 | require Win32::GUI::SplashScreen; |
