From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 2 Mar 2006 22:46:14 +0000 (+0200)
Subject: Re: [PATCH] Re: [perl #38612] Data::Dumper core dump in 5.8.6, fixed by 5.8.7
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a8201472fe60da124ff072ac70a963b7dbf39499;p=p5sagit%2Fp5-mst-13.2.git

Re: [PATCH] Re: [perl #38612] Data::Dumper core dump in 5.8.6, fixed by 5.8.7
Message-ID: <44075996.1000002@gmail.com>

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

diff --git a/ext/Data/Dumper/t/bugs.t b/ext/Data/Dumper/t/bugs.t
index faa78de..9026ae8 100644
--- a/ext/Data/Dumper/t/bugs.t
+++ b/ext/Data/Dumper/t/bugs.t
@@ -16,7 +16,7 @@ BEGIN {
 }
 
 use strict;
-use Test::More tests => 1;
+use Test::More tests => 2;
 use Data::Dumper;
 
 {
@@ -33,3 +33,18 @@ use Data::Dumper;
     my $new_count = iterate_hash(\%ENV);
     is($new_count, $orig_count, 'correctly resets hash iterators');
 }
+
+# [perl #38612] Data::Dumper core dump in 5.8.6, fixed by 5.8.7
+sub foo {
+     my $s = shift;
+     local $Data::Dumper::Terse = 1;
+     my $c = eval Dumper($s);
+     sub bar::quote { }
+     bless $c, 'bar';
+     my $d = Data::Dumper->new([$c]);
+     $d->Freezer('quote');
+     return $d->Dump;
+}
+foo({});
+ok(1, "[perl #38612]"); # Still no core dump? We are fine.
+