diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-04 17:01:06 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-04 17:01:06 +0000 |
commit | 08b362fd3290038341b0277721ffe31272e15da3 (patch) | |
tree | 2c5dcaca884cca4d6c3b9dad97c876ce07f99efd /t/op/misc.t | |
parent | 8935ee17b2edadcfca0c196679b39cd0ade49541 (diff) | |
download | perl-08b362fd3290038341b0277721ffe31272e15da3.tar.gz |
Test case for #10433/#10424.
p4raw-id: //depot/perl@10437
Diffstat (limited to 't/op/misc.t')
-rwxr-xr-x | t/op/misc.t | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/t/op/misc.t b/t/op/misc.t index 4b4d8031d4..e5af756014 100755 --- a/t/op/misc.t +++ b/t/op/misc.t @@ -706,3 +706,21 @@ Execution of - aborted due to compilation errors. EXPECT Missing right brace on \x{} at - line 2, within string Execution of - aborted due to compilation errors. +######## +my $foo = Bar->new(); +my @dst; +END { + ($_ = "@dst") =~ s/\(0x.+?\)/(0x...)/; + print $_, "\n"; +} +package Bar; +sub new { + my Bar $self = bless [], Bar; + eval '$self'; + return $self; +} +sub DESTROY { + push @dst, "$_[0]"; +} +EXPECT +Bar=ARRAY(0x...) |