Changeset 19409 for gsdl/trunk/bin/script/full-rebuild.pl
- Timestamp:
- 2009-05-12T17:29:56+12:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/bin/script/full-rebuild.pl
r18529 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 … … 102 107 103 108 my $final_status = 0; 109 110 my $launch_cmd = ""; 111 $launch_cmd = "$ENV{'PERLPATH'}\\Perl.exe -S " if($ENV{'GSDLOS'} =~ m/windows/); 104 112 105 113 print "\n"; … … 107 115 print "* Running Import Stage\n"; 108 116 print "************************\n"; 109 110 my $import_cmd = "full-import.pl $quoted_argv \"$collect\"";111 117 118 my $import_cmd = $launch_cmd . "full-import.pl $quoted_argv \"$collect\""; 119 112 120 my $import_status = system($import_cmd)/256; 113 121 … … 118 126 print "************************\n"; 119 127 120 my $buildcol_cmd = "full-buildcol.pl $quoted_argv \"$collect\"";128 my $buildcol_cmd = $launch_cmd . "full-buildcol.pl $quoted_argv \"$collect\""; 121 129 my $buildcol_status = system($buildcol_cmd)/256; 122 130 if ($buildcol_status == 0) {
Note:
See TracChangeset
for help on using the changeset viewer.