diff options
Diffstat (limited to 't/pragma/warn/pp_ctl')
| -rw-r--r-- | t/pragma/warn/pp_ctl | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/t/pragma/warn/pp_ctl b/t/pragma/warn/pp_ctl index 70c67fa598..5a1c2338ed 100644 --- a/t/pragma/warn/pp_ctl +++ b/t/pragma/warn/pp_ctl @@ -153,5 +153,7 @@ use warning 'unsafe' ; package Foo; DESTROY { die "@{$_[0]} foo bar" } { bless ['A'], 'Foo' for 1..10 } +{ bless ['B'], 'Foo' for 1..10 } EXPECT (in cleanup) A foo bar at - line 4. + (in cleanup) B foo bar at - line 4. |