summaryrefslogtreecommitdiff
path: root/t/op/misc.t
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2001-06-04 17:01:06 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2001-06-04 17:01:06 +0000
commit08b362fd3290038341b0277721ffe31272e15da3 (patch)
tree2c5dcaca884cca4d6c3b9dad97c876ce07f99efd /t/op/misc.t
parent8935ee17b2edadcfca0c196679b39cd0ade49541 (diff)
downloadperl-08b362fd3290038341b0277721ffe31272e15da3.tar.gz
Test case for #10433/#10424.
p4raw-id: //depot/perl@10437
Diffstat (limited to 't/op/misc.t')
-rwxr-xr-xt/op/misc.t18
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...)