Documentation processor in perl, for platforms that don't have sh

[openssl.git] / util / perlpath.pl

diff --git a/util/perlpath.pl b/util/perlpath.pl
index 0aa5ada36768b0d7896e3f583e8cb1d3b3e54c00..80388e2946dc047448c617d9e61c95f3f0f9a8bf 100755 (executable)
--- a/util/perlpath.pl
+++ b/util/perlpath.pl
@@ -1,8 +1,13 @@
-#!/usr/local/bin/perl
+#! /usr/bin/env perl
+# Copyright 1995-2016 The OpenSSL Project Authors. All Rights Reserved.
 #
+# Licensed under the OpenSSL license (the "License").  You may not use
+# this file except in compliance with the License.  You can obtain a copy
+# in the file LICENSE in the source distribution or at
+# https://www.openssl.org/source/license.html
+
 # modify the '#!/usr/local/bin/perl'
 # line in all scripts that rely on perl.
-#
 
 require "find.pl";
 
@@ -17,7 +22,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";