diff options
Diffstat (limited to 't/op/array.t')
| -rw-r--r-- | t/op/array.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/op/array.t b/t/op/array.t index e36fd287ed..f100e2d2df 100644 --- a/t/op/array.t +++ b/t/op/array.t @@ -276,7 +276,7 @@ tary(); my $got = runperl ( prog => q{ sub X::DESTROY { @a = () } - @a = (bless {}, 'X'); + @a = (bless {}, q{X}); @a = (); }, stderr => 1 |