X-Git-Url: https://git.openssl.org/gitweb/?p=openssl.git;a=blobdiff_plain;f=util%2Fperlpath.pl;h=a1f236bd9843cf69490c72c532129f9ced4d9d0a;hp=0aa5ada36768b0d7896e3f583e8cb1d3b3e54c00;hb=dcca7b13e9066443237dd3001ae52fd103151c98;hpb=b7896b3cb86d80206af14a14d69b0717786f2729

diff --git a/util/perlpath.pl b/util/perlpath.pl
index 0aa5ada367..a1f236bd98 100755
--- a/util/perlpath.pl
+++ b/util/perlpath.pl
@@ -17,7 +17,12 @@ sub wanted
 	@a=<IN>;
 	close(IN);
 
-	$a[0]="#!$ARGV[0]/perl\n";
+	if (-d $ARGV[0]) {
+		$a[0]="#!$ARGV[0]/perl\n";
+	}
+	else {
+		$a[0]="#!$ARGV[0]\n";
+	}
 
 	# Playing it safe...
 	$new="$_.new";