/usr/local/bin/perl -> /usr/bin/perl

drwrose · drwrose · commit 2ac33f21191c · 2006-10-17T22:26:52.000Z
diff --git a/dtool/src/attach/ctallihave b/dtool/src/attach/ctallihave
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
 
 if ($#ARGV != -1) {
    exit print "Usage: ctihave\n" ;
diff --git a/dtool/src/attach/ctattach.drv b/dtool/src/attach/ctattach.drv
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
 
 # acceptable forms:
 #   ctattach                     - give usage message
diff --git a/dtool/src/attach/ctattachcc b/dtool/src/attach/ctattachcc
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
 
 if ( $#ARGV != 5 ) {
    print STDERR "This is for internal use by attach ONLY\n" ;
diff --git a/dtool/src/attach/ctci b/dtool/src/attach/ctci
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
 
 sub CTCiUsage {
     print STDERR "Usage: ctci [-c \"comment\"] [-nc] element-name [...]\n" ;
diff --git a/dtool/src/attach/ctco b/dtool/src/attach/ctco
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
 
 sub CTCoUsage {
     print STDERR "Usage: ctco [-c \"comment\"] [-nc] element-name [...]\n" ;
diff --git a/dtool/src/attach/ctdelta b/dtool/src/attach/ctdelta
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
 
 if ($#ARGV < 0) {
    exit print "Usage: ctdelta element-name [...]\n" ;
diff --git a/dtool/src/attach/ctihave b/dtool/src/attach/ctihave
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
 
 if ($#ARGV != -1) {
    exit print "Usage: ctihave\n" ;
diff --git a/dtool/src/attach/ctmake b/dtool/src/attach/ctmake
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
 
 $tool = $ENV{"DTOOL"} ;
 if ( $tool eq "" ) {
diff --git a/dtool/src/attach/ctmkdir b/dtool/src/attach/ctmkdir
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
 
 sub CTMkDirUsage {
     print STDERR "Usage: ctmkdir [-c \"comment\"] [-nc] dir-name [...]\n" ;
diff --git a/dtool/src/attach/ctmkelem b/dtool/src/attach/ctmkelem
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
 
 sub CTMkElemUsage {
     print STDERR "Usage: ctmkelem [-c \"comment\"] [-nc] [-eltype type] element-name [...]\n" ;
diff --git a/dtool/src/attach/ctmv b/dtool/src/attach/ctmv
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
 
 if ( $#ARGV != 1 ) {
 	exit print "Usage: ctmv from-element to-element\n" ;
diff --git a/dtool/src/attach/ctquery b/dtool/src/attach/ctquery
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
 
 # acceptable forms:
 #    ctquery            - list all attached projects and flavors
diff --git a/dtool/src/attach/ctrm b/dtool/src/attach/ctrm
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
 
 if ( $#ARGV < 0 ) {
 	exit print "Usage: ctrmelem element-name [...]\n" ;
diff --git a/dtool/src/attach/ctsanity b/dtool/src/attach/ctsanity
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
 
 $tool = $ENV{"DTOOL"} ;
 if ( $tool eq "" ) {
diff --git a/dtool/src/attach/cttimewarp b/dtool/src/attach/cttimewarp
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
 
 if ($#ARGV < 0) {
     exit print "Usage: cttimewarp [-clear] label [time]\n" ;
diff --git a/dtool/src/attach/ctunattach.drv b/dtool/src/attach/ctunattach.drv
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
 
 # acceptable forms:
 #   ctunattach project      - attach to the personal flavor of the project
diff --git a/dtool/src/attach/ctunco b/dtool/src/attach/ctunco
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
 
 if ( $#ARGV < 0 ) {
     exit print "Usage ctunco element-name [...]\n" ;

Original file line number	Diff line number	Diff line change
`@@ -1,4 +1,4 @@`
`1`		`-#!/usr/local/bin/perl`
	`1`	`+#!/usr/bin/perl`
`2`	`2`
`3`	`3`	`if ($#ARGV != -1) {`
`4`	`4`	`exit print "Usage: ctihave\n" ;`