From: Jim Meyering <jim@meyering.net>
Date: Sun, 18 Mar 2001 16:53:58 +0000 (+0000)
Subject: If the $DJDIR envvar is defined, set SHELL
X-Git-Tag: FILEUTILS-4_0_42~1
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=46c7196039b16c5373dd403409fc3f868e40093c;p=thirdparty%2Fcoreutils.git

If the $DJDIR envvar is defined, set SHELL
to $DJDIR/bin/bash.exe.  Patch from Richard Dawe, based on a
suggestion from Eli Zaretskii.
---

diff --git a/tests/Fetish.pm b/tests/Fetish.pm
index 9c93947bf1..4dffeec1fb 100644
--- a/tests/Fetish.pm
+++ b/tests/Fetish.pm
@@ -12,7 +12,7 @@ use FileHandle;
 use File::Compare qw(compare);
 
 @ISA = qw(Exporter);
-($VERSION = '$Revision: 1.9 $ ') =~ tr/[0-9].//cd;
+($VERSION = '$Revision: 1.10 $ ') =~ tr/[0-9].//cd;
 @EXPORT = qw (run_tests);
 
 my $debug = $ENV{DEBUG};
@@ -23,6 +23,12 @@ my %Zero_one_type = map {$_ => 1} qw (OUT ERR EXIT PRE POST);
 my $srcdir = $ENV{srcdir};
 my $Global_count = 1;
 
+# When running in a DJGPP environment, make $ENV{SHELL} point to bash.
+# Otherwise, a bad shell might be used (e.g. command.com) and many
+# tests would fail.
+defined $ENV{DJDIR}
+  and $ENV{SHELL} = "$ENV{DJDIR}/bin/bash.exe";
+
 # A file spec: a scalar or a reference to a single-keyed hash
 # ================
 # 'contents'               contents only (file name is derived from test name)