Changeset 10565 for trunk/Padre/privinc/Module/Install/PRIVATE/Padre.pm

Timestamp:

02/07/10 03:22:19 (2 years ago)

Author:

azawawi

Message:

Fixed failed copying for wperl.exe.manifiest

File:

• trunk/Padre/privinc/Module/Install/PRIVATE/Padre.pm (modified) (2 diffs)

trunk/Padre/privinc/Module/Install/PRIVATE/Padre.pm

@@ -241 +241 @@
     # source folder
     my $src = "win32-loader";
+    my $bin = "blib/bin";
 
     # Create the blib/bin folder
-    system $^X , qw[-MExtUtils::Command -e mkpath --], qw[ blib/bin ];
+    system $^X , qw[-MExtUtils::Command -e mkpath --], $bin;
 
     # Step 1: Make sure we do not have old files
@@ -252 +253 @@
 
     # Step 3: Build padre.exe using gcc
-    system "cd $src && gcc -Wall -Os -mwin32 -mwindows -Wl,-s padre.c padre-rc.o -o ../blib/bin/padre.exe";
-
-    # Remove temporary file
+    system "cd $src && gcc -Wall -Os -mwin32 -mwindows -Wl,-s padre.c padre-rc.o -o ../$bin/padre.exe";
+
+    # Step 4: Remove temporary files
     unlink "$src/padre-rc.o" if -f "$src/padre-rc.o";
 
-    # Step 4: Install XP manifest to get a themed Padre
-    system $^X , qw[-MExtUtils::Command -e cp --], qw[ $src/wperl.exe.manifest blib/bin/wperl.exe.manifest ];
+    # Step 5: Install XP manifest to get a themed Padre
+    system $^X , qw[-MExtUtils::Command -e cp --], "$src/wperl.exe.manifest", "$bin/wperl.exe.manifest";
 }