From f0dc8b8ada2d3aa9336a2346483fd2094ef768a2 Mon Sep 17 00:00:00 2001
From: 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.14/files/use.perl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lang/perl5.14/files')

diff --git a/lang/perl5.14/files/use.perl b/lang/perl5.14/files/use.perl
index bed88bd46d44..354c8e1e59cc 100644
--- a/lang/perl5.14/files/use.perl
+++ b/lang/perl5.14/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