Changeset 19409 for gsdl/trunk/bin/script/incremental-rebuild.pl

Timestamp:

2009-05-12T17:29:56+12:00 (15 years ago)

Author:

ak19

Message:

Getting the incremental build scripts to work on Windows (it already works on the Vista here, but only because .pl files were associated with Perl).

File:

• gsdl/trunk/bin/script/incremental-rebuild.pl (modified) (4 diffs)

gsdl/trunk/bin/script/incremental-rebuild.pl

@@ -37 +37 @@
     die "GSDLOS not set\n" unless defined $ENV{'GSDLOS'};
     unshift (@INC, "$ENV{'GSDLHOME'}/perllib");
+
+    # for windows, need PERLPATH in order to launch Perl
+    if($ENV{'GSDLOS'} =~ m/windows/) {
+     die "PERLPATH, which is required for Windows, is not set.\n" unless defined $ENV{'PERLPATH'};
+    }
 }
 
@@ -65 +70 @@
     my $final_status = 0;
     
+    my $launch_cmd = "";
+    $launch_cmd = "$ENV{'PERLPATH'}\\Perl.exe -S " if($ENV{'GSDLOS'} =~ m/windows/);
+
     print "\n";
     print "************************\n";
@@ -70 +78 @@
     print "************************\n";
     
-    my $import_cmd = "incremental-import.pl $quoted_argv \"$collect\"";
+    my $import_cmd = $launch_cmd . "incremental-import.pl $quoted_argv \"$collect\"";
     
     my $import_status = system($import_cmd)/256;
@@ -81 +89 @@
     
 
-    my $buildcol_cmd = "incremental-buildcol.pl $quoted_argv \"$collect\"";
+    my $buildcol_cmd = $launch_cmd . "incremental-buildcol.pl $quoted_argv \"$collect\"";
     my $buildcol_status = system($buildcol_cmd)/256;
     if ($buildcol_status != 0) {