| … | |
… | |
| 56 | my $urlader = do { local $/; <$fh> }; |
56 | my $urlader = do { local $/; <$fh> }; |
| 57 | |
57 | |
| 58 | if (length $WINDOWS_ICON) { |
58 | if (length $WINDOWS_ICON) { |
| 59 | require Win32::Exe; |
59 | require Win32::Exe; |
| 60 | if (my $exe = eval { Win32::Exe->new (\$urlader) }) { |
60 | if (my $exe = eval { Win32::Exe->new (\$urlader) }) { |
| 61 | $exe->set_icons (Win32::Exe::IconFile->new ($WINDOWS_ICON)->icons); |
61 | $exe->set_icons ([Win32::Exe::IconFile->new ($WINDOWS_ICON)->icons]); |
| 62 | $exe->write (\$urlader); |
62 | $exe->write (\$urlader); |
| 63 | } else { |
63 | } else { |
| 64 | print "unable to set icon ($@)\n" if $verbose >= 2; |
64 | print "unable to set icon ($@)\n" if $verbose >= 2; |
| 65 | } |
65 | } |
| 66 | } |
66 | } |
