… | |
… | |
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; |