| # | Line 4 | Line 4 | |
|---|---|---|
| 4 | # n00 - for linux_ia32 machines such as n00, ..., n11, etc. | |
| 5 | # n12 - for linux_x86_64 machines | |
| 6 | ||
| 7 | < | my($scriptpath) = $0; |
| 7 | > | use Cwd qw(realpath); |
| 8 | > | |
| 9 | > | my($scriptpath) = realpath($0); |
| 10 | print STDOUT "make of JSOC $scriptpath\n"; | |
| 11 | system("date"); | |
| 12 | ||
| 13 | my($wd); | |
| 14 | $wd = $scriptpath; | |
| 15 | + | |
| 16 | if ($wd =~ /(.+)\/\S+$/) | |
| 17 | { | |
| 18 | $wd = $1; | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |