In Porting scripts, use standard perl path of "/usr/bin/perl".

p4raw-id: //depot/perl@18767

diff --git a/Porting/check83.pl b/Porting/check83.pl
index 7006d23..5851d9f 100644 (file)
--- a/Porting/check83.pl
+++ b/Porting/check83.pl
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
 
 # Check whether there are naming conflicts when names are truncated to
 # the DOSish case-ignoring 8.3 format, plus other portability no-nos.

diff --git a/Porting/findvars b/Porting/findvars
index 2d3a9a3..26a4bcf 100755 (executable)
--- a/Porting/findvars
+++ b/Porting/findvars
@@ -1,4 +1,4 @@
-#!/l/local/bin/perl -w
+#!/usr/bin/perl -w
 
 $pat = '';
 # construct word list

diff --git a/Porting/fixCORE b/Porting/fixCORE
index 4c586d8..f7f4539 100755 (executable)
--- a/Porting/fixCORE
+++ b/Porting/fixCORE
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 use Data::Dumper;
 
 my $targ = shift;

diff --git a/Porting/fixvars b/Porting/fixvars
index a211e58..201c37f 100755 (executable)
--- a/Porting/fixvars
+++ b/Porting/fixvars
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 use Data::Dumper;
 
 my $targ = (@ARGV) ? join(' ',@ARGV) : 'miniperl' ;

diff --git a/Porting/genlog b/Porting/genlog
index 48126f4..98bccdd 100755 (executable)
--- a/Porting/genlog
+++ b/Porting/genlog
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 #
 # Generate a nice changelist by querying perforce.
 #

diff --git a/Porting/makerel b/Porting/makerel
index 8937b25..0f98fc9 100644 (file)
--- a/Porting/makerel
+++ b/Porting/makerel
@@ -1,4 +1,4 @@
-#!/bin/env perl -w
+#!/usr/bin/perl -w
 
 # A first attempt at some automated support for making a perl release.
 # Very basic but functional - if you're on a unix system.

diff --git a/Porting/patchls b/Porting/patchls
index 4329f4c..1803ef7 100644 (file)
--- a/Porting/patchls
+++ b/Porting/patchls
@@ -1,4 +1,4 @@
-#!/bin/perl -w
+#!/usr/bin/perl -w
 # 
 #      patchls - patch listing utility
 #