[system] / trunk / webwork / system / system_webwork_setup.pl Repository:
ViewVC logotype

Diff of /trunk/webwork/system/system_webwork_setup.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

Revision 11 Revision 12
432 open FILE, $file || die "Couldn't open $file for reading."; 432 open FILE, $file || die "Couldn't open $file for reading.";
433 my @lines = <FILE>; 433 my @lines = <FILE>;
434 close FILE || die "Couldn't close $file after reading."; 434 close FILE || die "Couldn't close $file after reading.";
435 435
436 # fix perl path 436 # fix perl path
437 my $num = 0; 437 $lines[0] =~ m/^#!(\S*)/;
438 $num = $lines[0] =~ s/^#!.*/#!$perlPath/g; # fix #!... line 438 if($1 ne $perlPath) {
439 warn "couldn't fix #! line in $file\n" unless $num; 439 $lines[0] =~ s/^#!\S*/#!$perlPath/;
440
441 # write the file, only if there were changes
442 if($num > 0) {
443 open FILE, ">$file" || die "Couldn't open $file for writing."; 440 open FILE, ">$file" || die "Couldn't open $file for writing.";
444 print FILE @lines; 441 print FILE @lines;
445 close FILE || die "Couldn't close $file for writing."; 442 close FILE || die "Couldn't close $file for writing.";
446 } 443 }
447} 444}

Legend:
Removed from v.11  
changed lines
  Added in v.12

aubreyja at gmail dot com
ViewVC Help
Powered by ViewVC 1.0.9