From: Piotr Fusik <pfusik@op.pl>
Date: Wed, 27 Jul 2005 15:43:17 +0000 (-0700)
Subject: [perl #36672] Swapped warnings for -o and -O file tests
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=945fa9b5e7a27e23bc3274ba0b35d4a17fdb9964;p=p5sagit%2Fp5-mst-13.2.git

[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
--- 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
--- 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
--- 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;