# We require the perl script to change the backward slashes to forward in $PWD.
#s|\(my \$prog =.*\)|\1 \
#my $cwd = `(cd ../../src \&\& pwd)`; \
#chomp $cwd;|g
#s|\(my \$prog =.*\)|\1 \
#my $cwd = $ENV{PWD}; \
#$cwd =~ s:\\\\:/:g; \
#$prog = "$cwd/$prog";|g

s|\(my \$prog =.*\)|\1\
my $cwd = `(cd ../../src \&\& pwd)`;\
chomp $cwd;\
$cwd =~ s:\\\\:/:g;\
$prog = "$cwd/$prog";|g

# Change the $prog: and $prog --help so that they show their full paths.
#s|\$prog:|$cwd/$prog:\1|g
#s|\$prog --help|$cwd/$prog --help|g
#s|\$prog:|$cwd/../../src/$prog:\1|g
#s|\$prog --help|$cwd/../../src/$prog --help|g

# Change to valid 8.3 filenames.
s/date2sec-/d2sec-/g
s/relative-\([12]\)/relat-\1/g
s/NN-strne-\([12]\)/NN\1-strne/g
s/N-strne-\([12]\)/N\1-strne/g
s/NN-streq-\([12]\)/NN\1q-stre/g
s/N-streq-\([12]\)/N\1q-stre/g
