Changeset 19409 for gsdl/trunk/bin/script/full-buildcol.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/full-buildcol.pl (modified) (2 diffs)

gsdl/trunk/bin/script/full-buildcol.pl

@@ -30 +30 @@
 # Runs:        buildcol.pl -removeold ...
 
+BEGIN {
+    die "GSDLOS not set\n" unless defined $ENV{'GSDLOS'};
+    # 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'};
+    }
+}
 
 use strict;
@@ -37 +44 @@
 
 my $buildcol_cmd = "buildcol.pl -removeold $quoted_argv";
+if($ENV{'GSDLOS'} =~ m/windows/) {
+    $buildcol_cmd = "$ENV{'PERLPATH'}\\Perl.exe -S $buildcol_cmd";
+    #$buildcol_cmd = "perl -S $buildcol_cmd";
+}
 
 my $buildcol_status = system($buildcol_cmd)/256;