diff options
Diffstat (limited to 'lang/perl5.8/files/use.perl')
| -rw-r--r-- | lang/perl5.8/files/use.perl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lang/perl5.8/files/use.perl b/lang/perl5.8/files/use.perl index bed88bd46d44..354c8e1e59cc 100644 --- a/lang/perl5.8/files/use.perl +++ b/lang/perl5.8/files/use.perl @@ -17,7 +17,7 @@ EOF my $port_perl = '%%PREFIX%%/bin/perl'; $port_perl =~ tr|/|/|s; -my $ident = `/usr/bin/ident -q /usr/bin/perl5`; +my $ident = `[ -r /usr/bin/perl5 ] && /usr/bin/ident -q /usr/bin/perl5`; @ARGV == 1 or usage(); if ($ARGV[0] eq 'port') { |