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

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";