warn on C<my($foo,$foo)>

[p5sagit/p5-mst-13.2.git] / Configure

diff --git a/Configure b/Configure
index 197295f..9a11052 100755 (executable)
--- a/Configure
+++ b/Configure
@@ -1823,14 +1823,14 @@ ABYZ)
 *)     # There is a discontinuity in EBCDIC between 'I' and 'J'
         # (0xc9 and 0xd1), therefore that is a nice testing point.
         if test "X$up" = X -o "X$low" = X; then
-           case "`echo IJ | tr '[I-J]' '[i-j]' 2>/dev/null`" in
+           case "`echo IJ | $tr '[I-J]' '[i-j]' 2>/dev/null`" in
            ij) up='[A-Z]'
                low='[a-z]'
                ;;
            esac
         fi
        if test "X$up" = X -o "X$low" = X; then
-           case "`echo IJ | tr I-J i-j 2>/dev/null`" in
+           case "`echo IJ | $tr I-J i-j 2>/dev/null`" in
            ij) up='A-Z'
                low='a-z'
                ;;
@@ -1858,7 +1858,7 @@ ABYZ)
            esac
        fi
 esac
-case "`echo IJ | tr \"$up\" \"$low\" 2>/dev/null`" in
+case "`echo IJ | $tr \"$up\" \"$low\" 2>/dev/null`" in
 ij)
     echo "Using $up and $low to convert case." >&4
     ;;
@@ -1887,7 +1887,7 @@ myuname=`( ($uname -a) 2>/dev/null || hostname) 2>&1`
 # tr '[A-Z]' '[a-z]' would not work in EBCDIC
 # because the A-Z/a-z are not consecutive.
 myuname=`echo $myuname | $sed -e 's/^[^=]*=//' -e 's/\///g' | \
-       ./tr '[A-Z]' '[a-z]' | tr $trnl ' '`
+       ./tr '[A-Z]' '[a-z]' | $tr $trnl ' '`
 newmyuname="$myuname"
 dflt=n
 case "$knowitall" in
@@ -1956,7 +1956,7 @@ EOM
        $test -d /usr/apollo/bin && osname=apollo
        $test -f /etc/saf/_sactab && osname=svr4
        $test -d /usr/include/minix && osname=minix
-       if $test -d /MachTen; then
+       if $test -d /MachTen -o -d /MachTen_Folder; then
                osname=machten
                if $test -x /sbin/version; then
                        osvers=`/sbin/version | $awk '{print $2}' |
@@ -1968,6 +1968,12 @@ EOM
                        osvers="$2.$3"
                fi
        fi
+       $test -f /sys/posix.dll &&
+               $test -f /usr/bin/what &&
+               set X `/usr/bin/what /sys/posix.dll` &&
+               $test "$3" = UWIN &&
+               osname=uwin &&
+               osvers="$5"
        if $test -f $uname; then
                set X $myuname
                shift
@@ -12026,7 +12032,7 @@ esac
 case "$ebcdic" in
 $define)
     xxx=''
-    echo "This is an EBCDIC system, checking if any parser files may need regenerating." >&4
+    echo "This is an EBCDIC system, checking if any parser files need regenerating." >&4
     rm -f y.tab.c y.tab.h
     yacc -d perly.y >/dev/null 2>&1
     if cmp -s y.tab.c perly.c; then
@@ -12048,8 +12054,8 @@ $define)
     fi
     echo "x2p/a2p.y" >&4
     cd x2p
-    rm -f y.tab.c y.tab.h
-    yacc -d a2p.y >/dev/null 2>&1
+    rm -f y.tab.c
+    yacc a2p.y >/dev/null 2>&1
     if cmp -s y.tab.c a2p.c
     then
         rm -f y.tab.c
@@ -12061,14 +12067,6 @@ $define)
             -e 's/y\.tab/a2p/g' a2p.c >a2p.tmp && mv a2p.tmp a2p.c
         xxx="$xxx a2p.c"
     fi
-    if cmp -s y.tab.h a2p.h
-    then
-        rm -f y.tab.h
-    else
-        echo "a2p.h -> a2p.h" >&4
-        mv -f y.tab.h a2p.h
-        xxx="$xxx a2p.h"
-    fi
     cd ..
     case "$xxx" in
     '') echo "No parser files were regenerated.  That's okay." >&4 ;;