diff options
| author | lexi_birch <lexi_birch@1f5c12ca-751b-0410-a591-d2e778427230> | 2006-12-29 16:45:21 +0300 |
|---|---|---|
| committer | lexi_birch <lexi_birch@1f5c12ca-751b-0410-a591-d2e778427230> | 2006-12-29 16:45:21 +0300 |
| commit | 93937b529d4a907bce7b32e2e8c0b7641e414630 (patch) | |
| tree | eda0aca0117e5c6ef2314991765a6dddb0375c7d /scripts/analysis | |
| parent | 239e57c16c9efc1b8335f839538333974690d009 (diff) | |
Making remaining scripts os independent re pawd/pwd
git-svn-id: https://mosesdecoder.svn.sourceforge.net/svnroot/mosesdecoder/trunk@1103 1f5c12ca-751b-0410-a591-d2e778427230
Diffstat (limited to 'scripts/analysis')
| -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"; |