# Used to modify the perl and test scripts
# so that "make check" works.

# We still have no perl programm that understands the "/dev/x" syntax
# so we must translate "/dev/x/" into "x:/"
# This is needed for the following files:
#   tests/basename/basic
#   tests/factor/basic
#   tests/seq/basic
/^exec.*PERL.*-I\$srcdir\/\.\..*$/ i\
srcdir=`echo "$srcdir" | sed "s,^/dev/\\([A-Za-z]\\)/,\\1:/,"`
