From 57ec0aef321adc0381d80ea2ade512c8cacaed0e Mon Sep 17 00:00:00 2001 From: Rudolf Polzer Date: Fri, 6 Aug 2010 22:46:58 +0200 Subject: [PATCH] do NOT use Win32::Exe to exchange icon for now, the EXE it writes does not run any more --- misc/tools/rebrand-darkplaces-engine.sh | 50 ++++++++++++------------- 1 file changed, 25 insertions(+), 25 deletions(-) diff --git a/misc/tools/rebrand-darkplaces-engine.sh b/misc/tools/rebrand-darkplaces-engine.sh index 7ba4603a..19f05b12 100755 --- a/misc/tools/rebrand-darkplaces-engine.sh +++ b/misc/tools/rebrand-darkplaces-engine.sh @@ -57,31 +57,31 @@ for EXECUTABLE in "$@"; do rm -f darkplaces-icon.xpm fi - if $uses_ico; then - e=$EXECUTABLE \ - i=$icon_ico \ - n=$name \ - perl <<'EOF' - use strict; - use warnings; - use Win32::Exe; - - my $n = $ENV{n}; - my $i = $ENV{i}; - my $e = $ENV{e}; - - my $exe = Win32::Exe->new($e) - or die "Win32::Exe->new: $!"; - $exe = $exe->create_resource_section() - unless $exe->has_resource_section(); - $exe->update(icon => $i); - $exe->update(info => ["InternalName=$e"]); - $exe->update(info => ["OriginalFilename=$e"]); - $exe->update(info => ["ProductName=$n"]); - $exe->write($e) - or die "Win32::Exe->write: $!"; -EOF - fi +# if $uses_ico; then +# e=$EXECUTABLE \ +# i=$icon_ico \ +# n=$name \ +# perl <<'EOF' +# use strict; +# use warnings; +# use Win32::Exe; +# +# my $n = $ENV{n}; +# my $i = $ENV{i}; +# my $e = $ENV{e}; +# +# my $exe = Win32::Exe->new($e) +# or die "Win32::Exe->new: $!"; +# $exe = $exe->create_resource_section() +# unless $exe->has_resource_section(); +# $exe->update(icon => $i); +# $exe->update(info => ["InternalName=$e"]); +# $exe->update(info => ["OriginalFilename=$e"]); +# $exe->update(info => ["ProductName=$n"]); +# $exe->write($e) +# or die "Win32::Exe->write: $!"; +#EOF +# fi if $uses_icns; then # OS X is special here -- 2.39.2