This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove experimental bitwise warning
authorFather Chrysostomos <sprout@cpan.org>
Sun, 31 Dec 2017 19:24:57 +0000 (11:24 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Sun, 31 Dec 2017 19:24:57 +0000 (11:24 -0800)
op.c
pod/perldiag.pod
t/lib/croak/op
t/lib/warnings/op

diff --git a/op.c b/op.c
index b59433c..8b91f60 100644 (file)
--- a/op.c
+++ b/op.c
@@ -10946,12 +10946,6 @@ Perl_ck_bitop(pTHX_ OP *o)
 
     o->op_private = (U8)(PL_hints & HINT_INTEGER);
 
-    if (o->op_type == OP_NBIT_OR     || o->op_type == OP_SBIT_OR
-     || o->op_type == OP_NBIT_XOR    || o->op_type == OP_SBIT_XOR
-     || o->op_type == OP_NBIT_AND    || o->op_type == OP_SBIT_AND
-     || o->op_type == OP_NCOMPLEMENT || o->op_type == OP_SCOMPLEMENT)
-       Perl_ck_warner_d(aTHX_ packWARN(WARN_EXPERIMENTAL__BITWISE),
-                             "The bitwise feature is experimental");
     if (!(o->op_flags & OPf_STACKED) /* Not an assignment */
            && OP_IS_INFIX_BIT(o->op_type))
     {
index cca35e8..7867871 100644 (file)
@@ -6053,18 +6053,6 @@ as a compiler directive.  You may say only one of
 This is to prevent the problem of one module changing the array base out
 from under another module inadvertently.  See L<perlvar/$[> and L<arybase>.
 
-=item The bitwise feature is experimental
-
-(S experimental::bitwise) This warning is emitted if you use bitwise
-operators (C<& | ^ ~ &. |. ^. ~.>) with the "bitwise" feature enabled.
-Simply suppress the warning if you want to use the feature, but know
-that in doing so you are taking the risk of using an experimental
-feature which may change or be removed in a future Perl version:
-
-    no warnings "experimental::bitwise";
-    use feature "bitwise";
-    $x |.= $y;
-
 =item The crypt() function is unimplemented due to excessive paranoia.
 
 (F) Configure couldn't find the crypt() function on your machine,
index 002eb26..c11803e 100644 (file)
@@ -69,7 +69,6 @@ No such class field "c" in variable $f of type main at - line 3.
 use feature 'bitwise';
 @a &= 1;
 EXPECT
-The bitwise feature is experimental at - line 2.
 Can't modify array dereference in numeric bitwise and (&) at - line 2, near "1;"
 Execution of - aborted due to compilation errors.
 ########
@@ -77,7 +76,6 @@ Execution of - aborted due to compilation errors.
 use feature 'bitwise';
 @a |= 1;
 EXPECT
-The bitwise feature is experimental at - line 2.
 Can't modify array dereference in numeric bitwise or (|) at - line 2, near "1;"
 Execution of - aborted due to compilation errors.
 ########
@@ -85,7 +83,6 @@ Execution of - aborted due to compilation errors.
 use feature 'bitwise';
 @a ^= 1;
 EXPECT
-The bitwise feature is experimental at - line 2.
 Can't modify array dereference in numeric bitwise xor (^) at - line 2, near "1;"
 Execution of - aborted due to compilation errors.
 ########
@@ -93,7 +90,6 @@ Execution of - aborted due to compilation errors.
 use feature 'bitwise';
 @a &.= 1;
 EXPECT
-The bitwise feature is experimental at - line 2.
 Can't modify array dereference in string bitwise and (&.) at - line 2, near "1;"
 Execution of - aborted due to compilation errors.
 ########
@@ -101,7 +97,6 @@ Execution of - aborted due to compilation errors.
 use feature 'bitwise';
 @a |.= 1;
 EXPECT
-The bitwise feature is experimental at - line 2.
 Can't modify array dereference in string bitwise or (|.) at - line 2, near "1;"
 Execution of - aborted due to compilation errors.
 ########
@@ -109,7 +104,6 @@ Execution of - aborted due to compilation errors.
 use feature 'bitwise';
 @a ^.= 1;
 EXPECT
-The bitwise feature is experimental at - line 2.
 Can't modify array dereference in string bitwise xor (^.) at - line 2, near "1;"
 Execution of - aborted due to compilation errors.
 ########
index a6434ff..54e2e3d 100644 (file)
@@ -87,8 +87,6 @@
 
     Use of /g modifier is meaningless in split
 
-    The bitwise feature is experimental                        [Perl_ck_bitop]
-
     Possible precedence problem on bitwise %c operator [Perl_ck_bitop]
 
     Mandatory Warnings 
@@ -1485,34 +1483,6 @@ $_ |.= $_;
 $_ &.= $_;
 $_ ^.= $_;
 EXPECT
-The bitwise feature is experimental at - line 2.
-The bitwise feature is experimental at - line 3.
-The bitwise feature is experimental at - line 4.
-The bitwise feature is experimental at - line 5.
-The bitwise feature is experimental at - line 6.
-The bitwise feature is experimental at - line 7.
-The bitwise feature is experimental at - line 8.
-The bitwise feature is experimental at - line 9.
-The bitwise feature is experimental at - line 10.
-The bitwise feature is experimental at - line 11.
-The bitwise feature is experimental at - line 12.
-The bitwise feature is experimental at - line 13.
-The bitwise feature is experimental at - line 14.
-The bitwise feature is experimental at - line 15.
-The bitwise feature is experimental at - line 17.
-The bitwise feature is experimental at - line 18.
-The bitwise feature is experimental at - line 19.
-The bitwise feature is experimental at - line 20.
-The bitwise feature is experimental at - line 21.
-The bitwise feature is experimental at - line 22.
-The bitwise feature is experimental at - line 23.
-The bitwise feature is experimental at - line 24.
-The bitwise feature is experimental at - line 25.
-The bitwise feature is experimental at - line 26.
-The bitwise feature is experimental at - line 27.
-The bitwise feature is experimental at - line 28.
-The bitwise feature is experimental at - line 29.
-The bitwise feature is experimental at - line 30.
 ########
 # op.c
 use warnings 'precedence';