diff options
Diffstat (limited to 'scripts/analysis/show-phrases-used.pl')
| -rw-r--r-- | scripts/analysis/show-phrases-used.pl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/scripts/analysis/show-phrases-used.pl b/scripts/analysis/show-phrases-used.pl index a3774d784..32885e752 100644 --- a/scripts/analysis/show-phrases-used.pl +++ b/scripts/analysis/show-phrases-used.pl @@ -7,7 +7,9 @@ use strict; BEGIN { - my $wd = `pawd`; chop $wd; + my $wd= `pawd 2>/dev/null`; + if (!$wd) {$wd = `pwd`;} + chomp $wd; push @INC, "$wd/perllib/sun4-solaris"; #for GD; if not an absolute path, Polygon.pm throws a fit } use lib "perllib/sun4-solaris/auto/GD"; |