1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
--- Examples/scalegds.orig 2016-05-16 17:46:24 UTC
+++ Examples/scalegds
@@ -72,18 +72,14 @@ unless ($color)
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$mon++; $year += 1900;
-# help find gds2gdt
-my $uname_s = `/bin/uname -s`; # OS name
-chomp $uname_s;
-$ENV{'PATH'} = "/bin:/usr/bin:/user/ic/gnu/$uname_s/bin:".$ENV{'PATH'};
-my $gds2gdt = which("gds2gdt");
+my $gds2gdt = '%%PREFIX%%/bin/gds2gdt';
unless ($gds2gdt)
{
die $REVERSE_RED.ERROR."$COLOR_RESET unable to find gds2gdt in \$PATH";
}
-my $gdt2gds = which("gdt2gds");
+my $gdt2gds = '%%PREFIX%%/bin/gdt2gds';
unless ($gdt2gds)
{
die $REVERSE_RED.ERROR."$COLOR_RESET unable to find gdt2gds in \$PATH";
@@ -135,7 +131,7 @@ my $fhJunk = new FileHandle; # not using
if ($inputFile =~ m/\.(gz|Z)$/)
{
- my $zcat = which("zcat");
+ my $zcat = '/usr/bin/zcat';
unless ($zcat)
{
die $REVERSE_RED.ERROR."$COLOR_RESET unable to find zcat in \$PATH";
@@ -145,7 +141,7 @@ if ($inputFile =~ m/\.(gz|Z)$/)
}
elsif ($inputFile =~ m/\.bz2$/)
{
- my $bzcat = which("bzcat");
+ my $bzcat = '/usr/bin/bzcat';
unless ($bzcat)
{
die $REVERSE_RED.ERROR."$COLOR_RESET unable to find bzcat in \$PATH";
|
