Change 27365 by [EMAIL PROTECTED] on 2006/03/03 00:18:40
Subject: Re: [PATCH] Re: [perl #38612] Data::Dumper core dump in 5.8.6,
fixed by 5.8.7
From: Jarkko Hietaniemi <[EMAIL PROTECTED]>
Date: Thu, 02 Mar 2006 22:46:14 +0200
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/ext/Data/Dumper/t/bugs.t#2 edit
Differences ...
==== //depot/perl/ext/Data/Dumper/t/bugs.t#2 (text) ====
Index: perl/ext/Data/Dumper/t/bugs.t
--- perl/ext/Data/Dumper/t/bugs.t#1~25347~ 2005-09-02 05:53:49.000000000
-0700
+++ perl/ext/Data/Dumper/t/bugs.t 2006-03-02 16:18:40.000000000 -0800
@@ -16,7 +16,7 @@
}
use strict;
-use Test::More tests => 1;
+use Test::More tests => 2;
use Data::Dumper;
{
@@ -33,3 +33,18 @@
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.
+
End of Patch.
