Changeset 19409 for gsdl/trunk/bin/script/incremental-rebuild.pl
- Timestamp:
- 2009-05-12T17:29:56+12:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/bin/script/incremental-rebuild.pl
r18510 r19409 37 37 die "GSDLOS not set\n" unless defined $ENV{'GSDLOS'}; 38 38 unshift (@INC, "$ENV{'GSDLHOME'}/perllib"); 39 40 # for windows, need PERLPATH in order to launch Perl 41 if($ENV{'GSDLOS'} =~ m/windows/) { 42 die "PERLPATH, which is required for Windows, is not set.\n" unless defined $ENV{'PERLPATH'}; 43 } 39 44 } 40 45 … … 65 70 my $final_status = 0; 66 71 72 my $launch_cmd = ""; 73 $launch_cmd = "$ENV{'PERLPATH'}\\Perl.exe -S " if($ENV{'GSDLOS'} =~ m/windows/); 74 67 75 print "\n"; 68 76 print "************************\n"; … … 70 78 print "************************\n"; 71 79 72 my $import_cmd = "incremental-import.pl $quoted_argv \"$collect\"";80 my $import_cmd = $launch_cmd . "incremental-import.pl $quoted_argv \"$collect\""; 73 81 74 82 my $import_status = system($import_cmd)/256; … … 81 89 82 90 83 my $buildcol_cmd = "incremental-buildcol.pl $quoted_argv \"$collect\"";91 my $buildcol_cmd = $launch_cmd . "incremental-buildcol.pl $quoted_argv \"$collect\""; 84 92 my $buildcol_status = system($buildcol_cmd)/256; 85 93 if ($buildcol_status != 0) {
Note:
See TracChangeset
for help on using the changeset viewer.