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

dtool/src/attach/ctallihave

@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
 
 if ($#ARGV != -1) {
    exit print "Usage: ctihave\n" ;

dtool/src/attach/ctattach.drv

@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
 
 # acceptable forms:
 #   ctattach                     - give usage message

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

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

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

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

dtool/src/attach/ctihave

@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
 
 if ($#ARGV != -1) {
    exit print "Usage: ctihave\n" ;

dtool/src/attach/ctmake

@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
 
 $tool = $ENV{"DTOOL"} ;
 if ( $tool eq "" ) {

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

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

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

dtool/src/attach/ctquery

@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
 
 # acceptable forms:
 #    ctquery            - list all attached projects and flavors

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

dtool/src/attach/ctsanity

@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
 
 $tool = $ENV{"DTOOL"} ;
 if ( $tool eq "" ) {

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

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

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