diff options
| author | Paul Smith <psmith@gnu.org> | 2010-07-12 05:23:19 +0000 |
|---|---|---|
| committer | Paul Smith <psmith@gnu.org> | 2010-07-12 05:23:19 +0000 |
| commit | 4d92028c986c7f0ebdccd35510f0d86fc17f9ce1 (patch) | |
| tree | 77cef333f84b6adaab888e6d79e56c4973f1dca0 /tests/test_driver.pl | |
| parent | ae2a6d59baea932c67287de446db0036f19d6c4e (diff) | |
| download | make-4d92028c986c7f0ebdccd35510f0d86fc17f9ce1.tar.gz | |
Add the beginning of the .ONESHELL special feature.
Original patch by David Boyce. Modified by Paul Smith.
Diffstat (limited to 'tests/test_driver.pl')
| -rw-r--r-- | tests/test_driver.pl | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/tests/test_driver.pl b/tests/test_driver.pl index e96c84cb..8319d40f 100644 --- a/tests/test_driver.pl +++ b/tests/test_driver.pl @@ -54,6 +54,8 @@ $test_passed = 1; # Timeout in seconds. If the test takes longer than this we'll fail it. $test_timeout = 5; +# Path to Perl +$perl_name = $^X; # %makeENV is the cleaned-out environment. %makeENV = (); @@ -236,9 +238,10 @@ sub toplevel sub get_osname { # Set up an initial value. In perl5 we can do it the easy way. - # $osname = defined($^O) ? $^O : ''; + # Find a path to Perl + # See if the filesystem supports long file names with multiple # dots. DOS doesn't. $short_filenames = 0; @@ -273,14 +276,14 @@ sub get_osname eval "chop (\$osname = `sh -c 'uname -nmsr 2>&1'`)"; if ($osname =~ /not found/i) { - $osname = "(something unixy with no uname)"; + $osname = "(something posixy with no uname)"; } elsif ($@ ne "" || $?) { eval "chop (\$osname = `sh -c 'uname -a 2>&1'`)"; if ($@ ne "" || $?) { - $osname = "(something unixy)"; + $osname = "(something posixy)"; } } $vos = 0; |