This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
__SUB__ should warn in void context
authorFather Chrysostomos <sprout@cpan.org>
Wed, 23 Nov 2011 20:50:38 +0000 (12:50 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Thu, 24 Nov 2011 09:45:28 +0000 (01:45 -0800)
op.c
t/lib/warnings/op

diff --git a/op.c b/op.c
index e1cae25..2fbf4bd 100644 (file)
--- a/op.c
+++ b/op.c
@@ -1114,6 +1114,7 @@ Perl_scalarvoid(pTHX_ OP *o)
     case OP_GGRGID:
     case OP_GETLOGIN:
     case OP_PROTOTYPE:
+    case OP_RUNCV:
       func_ops:
        if (!(o->op_private & (OPpLVAL_INTRO|OPpOUR_INTRO)))
            /* Otherwise it's "Useless use of grep iterator" */
index 81133fc..9514c39 100644 (file)
@@ -203,6 +203,8 @@ eval { getpwuid 1 };        # OP_GPWUID
 prototype "foo";       # OP_PROTOTYPE
 $a ~~ $b;              # OP_SMARTMATCH
 $a <=> $b;             # OP_NCMP
+use 5.015;
+__SUB__                        # OP_RUNCV
 EXPECT
 Useless use of repeat (x) in void context at - line 3.
 Useless use of wantarray in void context at - line 5.
@@ -244,6 +246,7 @@ Useless use of getpwuid in void context at - line 53.
 Useless use of subroutine prototype in void context at - line 54.
 Useless use of smart match in void context at - line 55.
 Useless use of numeric comparison (<=>) in void context at - line 56.
+Useless use of __SUB__ in void context at - line 58.
 ########
 # op.c
 use warnings 'void' ; close STDIN ;