From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 4 Jun 2001 17:01:06 +0000 (+0000)
Subject: Test case for #10433/#10424.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=08b362fd3290038341b0277721ffe31272e15da3;p=p5sagit%2Fp5-mst-13.2.git

Test case for #10433/#10424.

p4raw-id: //depot/perl@10437
---

diff --git a/t/op/misc.t b/t/op/misc.t
index 4b4d803..e5af756 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...)