#!/bin/sh
# script to fix perl files for the contrib suites
# 
PATTERN1=bin
PATTERN2="opt\/bin"

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

cd $TET_ROOT/contrib/suite/src

for i in e*
do

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

done

for i in t*
do

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

done

cd $TET_ROOT/contrib/api/src
for i in p* test2 test3 test4 test5 test6 test7
do

chmod u+w $i
echo "Fixing contrib/api/src/$i"
ed $i <<EOF
1s/$PATTERN1/$PATTERN2/g
w
q
EOF
chmod u-w $i

done
