defined @array and defined %hash need no warnings 'deprecated';

[p5sagit/p5-mst-13.2.git] / t / op / attrs.t

diff --git a/t/op/attrs.t b/t/op/attrs.t
index ef6867d..8f059b0 100644 (file)
--- a/t/op/attrs.t
+++ b/t/op/attrs.t
@@ -14,7 +14,7 @@ BEGIN {
 
 use warnings;
 
-plan 90;
+plan 91;
 
 $SIG{__WARN__} = sub { die @_ };
 
@@ -197,6 +197,18 @@ sub PVBM () { 'foo' }
 ok !defined(attributes::get(\PVBM)), 
     'PVBMs don\'t segfault attributes::get';
 
+{
+    #  [perl #49472] Attributes + Unkown Error
+    eval '
+       use strict;
+       sub MODIFY_CODE_ATTRIBUTE{}
+       sub f:Blah {$nosuchvar};
+    ';
+
+    my $err = $@;
+    like ($err, qr/Global symbol "\$nosuchvar" requires /, 'perl #49472');
+}
+
 # Test that code attributes always get applied to the same CV that
 # we're left with at the end (bug#66970).
 {