diff options
Diffstat (limited to 'gnu/usr.bin/perl/t/op/method.t')
| -rw-r--r-- | gnu/usr.bin/perl/t/op/method.t | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/gnu/usr.bin/perl/t/op/method.t b/gnu/usr.bin/perl/t/op/method.t index b915306b8ea..1fc99cfdf9b 100644 --- a/gnu/usr.bin/perl/t/op/method.t +++ b/gnu/usr.bin/perl/t/op/method.t @@ -13,7 +13,7 @@ BEGIN { use strict; no warnings 'once'; -plan(tests => 150); +plan(tests => 151); @A::ISA = 'B'; @B::ISA = 'C'; @@ -704,6 +704,10 @@ SKIP: { "check unknown import() methods don't corrupt the stack"); } +like runperl(prog => 'sub ub(){0} ub ub', stderr=>1), qr/Bareword found/, + '[perl #126482] Assert failure when mentioning a constant twice in a row'; + + __END__ #FF9900 #F78C08 |