From 61a7aa221f97472fad644410dc868e1b13a5e970 Mon Sep 17 00:00:00 2001
From: Jun Kuriyama <kuriyama@FreeBSD.org>
Date: Tue, 20 Jan 2004 02:28:15 +0000
Subject: Check /usr/bin/perl5 existence before using "ident -q
 /usr/bin/perl5".

Approved by:	tobez
---
 lang/perl5.8/files/use.perl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lang/perl5.8/files/use.perl')

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') {
-- 
cgit v1.2.3