diff options
| author | Jun Kuriyama <kuriyama@FreeBSD.org> | 2004-01-20 02:28:15 +0000 |
|---|---|---|
| committer | Jun Kuriyama <kuriyama@FreeBSD.org> | 2004-01-20 02:28:15 +0000 |
| commit | 61a7aa221f97472fad644410dc868e1b13a5e970 (patch) | |
| tree | 4464a13909abe9cb4bcd84606d7544ed73c8a398 /lang/perl5.8/files/use.perl | |
| parent | The http_workarounds.patch has been updated, update distinfo accordingly. (diff) | |
Check /usr/bin/perl5 existence before using "ident -q /usr/bin/perl5".
Approved by: tobez
Diffstat (limited to '')
| -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') { |