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