This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
s/WARN_PRECEDENCE/WARN_BAREWORD/, vide change#5131
authorGurusamy Sarathy <gsar@cpan.org>
Sat, 19 Feb 2000 06:53:13 +0000 (06:53 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Sat, 19 Feb 2000 06:53:13 +0000 (06:53 +0000)
p4raw-link: @5131 on //depot/perl: 34d09196f6a006314d7ea49a091a30ce5ee08bff

p4raw-id: //depot/perl@5135

lib/warnings.pm
op.c
warnings.h
warnings.pl

index 6b87d85..b952295 100644 (file)
@@ -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 (file)
--- 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;
index 8c1bbf7..23e6d1c 100644 (file)
 #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
index 9d57103..c6f1313 100644 (file)
@@ -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,