This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
evat => eval as found by Tom Hukins
[metaconfig.git] / U / modified / Head.U
index 46a28c1..a984080 100644 (file)
@@ -49,7 +49,7 @@
 ?MAKE:Head:
 ?MAKE: -pick wipe $@ %<
 ?V:PATH p_ _exe me newsh
-?T:argv Id p paths OS2_SHELL DJGPP
+?T:argv p paths OS2_SHELL DJGPP
 ?T:inksh needksh avoidksh newsh changesh reason
 ?F:!*
 ?LINT:extern ENV CDPATH SHELL MACHTYPE _exe is_os2
@@ -167,7 +167,7 @@ esac
 : Proper separator for the PATH environment variable
 p_=:
 : On OS/2 this directory should exist if this is not floppy only system ":-]"
-if test -d c:/. || ( uname -a | grep -i 'os\(/\|\)2' ) 2>&1 >/dev/null ; then
+if test -d c:/. || ( uname -a | grep -i 'os\(/\|\)2' 2>&1 ) 2>&1 >/dev/null ; then
        if test -n "$OS2_SHELL"; then
                p_=\;
                PATH=`cmd /c "echo %PATH%" | tr '\\\\' / `