Type-checked (and modern C compliant) OBJ_bsearch.

[openssl.git] / util / perlpath.pl

diff --git a/util/perlpath.pl b/util/perlpath.pl
index 0aa5ada36768b0d7896e3f583e8cb1d3b3e54c00..a1f236bd9843cf69490c72c532129f9ced4d9d0a 100755 (executable)
--- 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";