[perl #36672] Swapped warnings for -o and -O file tests

From: "Piotr Fusik" (via RT) <perlbug-followup@perl.org>
Message-ID: <rt-3.0.11-36672-118371.6.12458378853063@perl.org>

(except the redundant test)

p4raw-id: //depot/perl@25232

diff --git a/opcode.h b/opcode.h
index 1a4c507..e7af19b 100644 (file)
--- a/opcode.h
+++ b/opcode.h
@@ -635,8 +635,8 @@ EXTCONST char* const PL_op_desc[] = {
        "-w",
        "-x",
        "-e",
-       "-O",
        "-o",
+       "-O",
        "-z",
        "-s",
        "-M",

diff --git a/opcode.pl b/opcode.pl
index 9e8d323..571fa14 100755 (executable)
--- a/opcode.pl
+++ b/opcode.pl
@@ -809,8 +809,8 @@ fteread             -r                      ck_ftst         isu-    F-
 ftewrite       -w                      ck_ftst         isu-    F-
 fteexec                -x                      ck_ftst         isu-    F-
 ftis           -e                      ck_ftst         isu-    F-
-fteowned       -O                      ck_ftst         isu-    F-
-ftrowned       -o                      ck_ftst         isu-    F-
+fteowned       -o                      ck_ftst         isu-    F-
+ftrowned       -O                      ck_ftst         isu-    F-
 ftzero         -z                      ck_ftst         isu-    F-
 ftsize         -s                      ck_ftst         istu-   F-
 ftmtime                -M                      ck_ftst         stu-    F-

diff --git a/t/lib/warnings/9uninit b/t/lib/warnings/9uninit
index d22e4cf..023f857 100644 (file)
--- a/t/lib/warnings/9uninit
+++ b/t/lib/warnings/9uninit
@@ -1220,8 +1220,8 @@ $v = -r $m1;
 $v = -w $m1;
 $v = -x $m1;
 $v = -e $m1;
-$v = -O $m1;
 $v = -o $m1;
+$v = -O $m1;
 $v = -z $m1;
 $v = -s $m1;
 $v = -M $m1;