From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sat, 19 Feb 2000 06:53:13 +0000 (+0000)
Subject: s/WARN_PRECEDENCE/WARN_BAREWORD/, vide change#5131
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4673fc70de29ec9782a54acc86b498189e02a8e2;p=p5sagit%2Fp5-mst-13.2.git

s/WARN_PRECEDENCE/WARN_BAREWORD/, vide change#5131

p4raw-link: @5131 on //depot/perl: 34d09196f6a006314d7ea49a091a30ce5ee08bff

p4raw-id: //depot/perl@5135
---

diff --git a/lib/warnings.pm b/lib/warnings.pm
index 6b87d85..b952295 100644
--- a/lib/warnings.pm
+++ b/lib/warnings.pm
@@ -32,11 +32,12 @@ use Carp ;
 %Bits = (
     'all'		=> "\x55\x55\x55\x55\x55\x55\x55\x55\x55", # [0..35]
     'ambiguous'		=> "\x00\x00\x00\x00\x01\x00\x00\x00\x00", # [16]
+    'bareword'		=> "\x00\x00\x00\x00\x04\x00\x00\x00\x00", # [17]
     'closed'		=> "\x04\x00\x00\x00\x00\x00\x00\x00\x00", # [1]
     'closure'		=> "\x00\x00\x00\x00\x00\x00\x40\x00\x00", # [27]
     'debugging'		=> "\x00\x00\x00\x01\x00\x00\x00\x00\x00", # [12]
-    'deprecated'	=> "\x00\x00\x00\x00\x04\x00\x00\x00\x00", # [17]
-    'digit'		=> "\x00\x00\x00\x00\x10\x00\x00\x00\x00", # [18]
+    'deprecated'	=> "\x00\x00\x00\x00\x10\x00\x00\x00\x00", # [18]
+    'digit'		=> "\x00\x00\x00\x00\x40\x00\x00\x00\x00", # [19]
     'exec'		=> "\x10\x00\x00\x00\x00\x00\x00\x00\x00", # [2]
     'inplace'		=> "\x00\x00\x00\x04\x00\x00\x00\x00\x00", # [13]
     'internal'		=> "\x00\x00\x00\x10\x00\x00\x00\x00\x00", # [14]
@@ -44,13 +45,12 @@ use Carp ;
     'misc'		=> "\x00\x10\x00\x00\x00\x00\x00\x00\x00", # [6]
     'newline'		=> "\x40\x00\x00\x00\x00\x00\x00\x00\x00", # [3]
     'numeric'		=> "\x00\x40\x00\x00\x00\x00\x00\x00\x00", # [7]
-    'octal'		=> "\x00\x00\x00\x00\x40\x00\x00\x00\x00", # [19]
+    'octal'		=> "\x00\x00\x00\x00\x00\x01\x00\x00\x00", # [20]
     'once'		=> "\x00\x00\x01\x00\x00\x00\x00\x00\x00", # [8]
     'overflow'		=> "\x00\x00\x00\x00\x00\x00\x00\x01\x00", # [28]
-    'parenthesis'	=> "\x00\x00\x00\x00\x00\x01\x00\x00\x00", # [20]
+    'parenthesis'	=> "\x00\x00\x00\x00\x00\x04\x00\x00\x00", # [21]
     'pipe'		=> "\x00\x01\x00\x00\x00\x00\x00\x00\x00", # [4]
     'portable'		=> "\x00\x00\x00\x00\x00\x00\x00\x04\x00", # [29]
-    'precedence'	=> "\x00\x00\x00\x00\x00\x04\x00\x00\x00", # [21]
     'printf'		=> "\x00\x00\x00\x00\x00\x10\x00\x00\x00", # [22]
     'recursion'		=> "\x00\x00\x04\x00\x00\x00\x00\x00\x00", # [9]
     'redefine'		=> "\x00\x00\x10\x00\x00\x00\x00\x00\x00", # [10]
@@ -72,11 +72,12 @@ use Carp ;
 %DeadBits = (
     'all'		=> "\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa", # [0..35]
     'ambiguous'		=> "\x00\x00\x00\x00\x02\x00\x00\x00\x00", # [16]
+    'bareword'		=> "\x00\x00\x00\x00\x08\x00\x00\x00\x00", # [17]
     'closed'		=> "\x08\x00\x00\x00\x00\x00\x00\x00\x00", # [1]
     'closure'		=> "\x00\x00\x00\x00\x00\x00\x80\x00\x00", # [27]
     'debugging'		=> "\x00\x00\x00\x02\x00\x00\x00\x00\x00", # [12]
-    'deprecated'	=> "\x00\x00\x00\x00\x08\x00\x00\x00\x00", # [17]
-    'digit'		=> "\x00\x00\x00\x00\x20\x00\x00\x00\x00", # [18]
+    'deprecated'	=> "\x00\x00\x00\x00\x20\x00\x00\x00\x00", # [18]
+    'digit'		=> "\x00\x00\x00\x00\x80\x00\x00\x00\x00", # [19]
     'exec'		=> "\x20\x00\x00\x00\x00\x00\x00\x00\x00", # [2]
     'inplace'		=> "\x00\x00\x00\x08\x00\x00\x00\x00\x00", # [13]
     'internal'		=> "\x00\x00\x00\x20\x00\x00\x00\x00\x00", # [14]
@@ -84,13 +85,12 @@ use Carp ;
     'misc'		=> "\x00\x20\x00\x00\x00\x00\x00\x00\x00", # [6]
     'newline'		=> "\x80\x00\x00\x00\x00\x00\x00\x00\x00", # [3]
     'numeric'		=> "\x00\x80\x00\x00\x00\x00\x00\x00\x00", # [7]
-    'octal'		=> "\x00\x00\x00\x00\x80\x00\x00\x00\x00", # [19]
+    'octal'		=> "\x00\x00\x00\x00\x00\x02\x00\x00\x00", # [20]
     'once'		=> "\x00\x00\x02\x00\x00\x00\x00\x00\x00", # [8]
     'overflow'		=> "\x00\x00\x00\x00\x00\x00\x00\x02\x00", # [28]
-    'parenthesis'	=> "\x00\x00\x00\x00\x00\x02\x00\x00\x00", # [20]
+    'parenthesis'	=> "\x00\x00\x00\x00\x00\x08\x00\x00\x00", # [21]
     'pipe'		=> "\x00\x02\x00\x00\x00\x00\x00\x00\x00", # [4]
     'portable'		=> "\x00\x00\x00\x00\x00\x00\x00\x08\x00", # [29]
-    'precedence'	=> "\x00\x00\x00\x00\x00\x08\x00\x00\x00", # [21]
     'printf'		=> "\x00\x00\x00\x00\x00\x20\x00\x00\x00", # [22]
     'recursion'		=> "\x00\x00\x08\x00\x00\x00\x00\x00\x00", # [9]
     'redefine'		=> "\x00\x00\x20\x00\x00\x00\x00\x00\x00", # [10]
diff --git a/op.c b/op.c
index a9872c2..32eb7b0 100644
--- a/op.c
+++ b/op.c
@@ -3514,8 +3514,8 @@ S_new_logop(pTHX_ I32 type, I32 flags, OP** firstp, OP** otherp)
 	}
     }
     if (first->op_type == OP_CONST) {
-	if (ckWARN(WARN_PRECEDENCE) && (first->op_private & OPpCONST_BARE))
-	    Perl_warner(aTHX_ WARN_PRECEDENCE, "Bareword found in conditional");
+	if (ckWARN(WARN_BAREWORD) && (first->op_private & OPpCONST_BARE))
+	    Perl_warner(aTHX_ WARN_BAREWORD, "Bareword found in conditional");
 	if ((type == OP_AND) == (SvTRUE(((SVOP*)first)->op_sv))) {
 	    op_free(first);
 	    *firstp = Nullop;
diff --git a/warnings.h b/warnings.h
index 8c1bbf7..23e6d1c 100644
--- a/warnings.h
+++ b/warnings.h
@@ -78,11 +78,11 @@
 #define WARN_INTERNAL		14
 #define WARN_SYNTAX		15
 #define WARN_AMBIGUOUS		16
-#define WARN_DEPRECATED		17
-#define WARN_DIGIT		18
-#define WARN_OCTAL		19
-#define WARN_PARENTHESIS	20
-#define WARN_PRECEDENCE		21
+#define WARN_BAREWORD		17
+#define WARN_DEPRECATED		18
+#define WARN_DIGIT		19
+#define WARN_OCTAL		20
+#define WARN_PARENTHESIS	21
 #define WARN_PRINTF		22
 #define WARN_RESERVED		23
 #define WARN_SEMICOLON		24
diff --git a/warnings.pl b/warnings.pl
index 9d57103..c6f1313 100644
--- a/warnings.pl
+++ b/warnings.pl
@@ -27,7 +27,7 @@ my $tree = {
 			   },
        	 'syntax'	=> { 	'ambiguous'	=> DEFAULT_OFF,
 			     	'semicolon'	=> DEFAULT_OFF,
-			     	'precedence'	=> DEFAULT_OFF,
+			     	'bareword'	=> DEFAULT_OFF,
 			     	'reserved'	=> DEFAULT_OFF,
 				'octal'		=> DEFAULT_OFF,
 				'digit'		=> DEFAULT_OFF,