#!/bin/sh
#	SCCS: @(#)fixperl	1.1 (96/08/15) TETware release 3.3
# script to fix perl files for src/perl API
# 
PATTERN1=bin
PATTERN2="local\/gnu\/bin"

echo "Registering Perl path as $PATTERN2"
echo "hit del to abort"
sleep 3


i=./make_tcm.pl
chmod u+w $i
echo "Fixing contrib/suite/src/$i"
ed $i <<EOF
1s/$PATTERN1/$PATTERN2/g
w
q
EOF
chmod u-w $i


