From: Jerry D. Hedden <jdhedden@cpan.org>
Date: Wed, 30 Jul 2008 12:54:34 +0000 (-0400)
Subject: Version bump for Data::Dumper
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=85d2acea42af9d6b62e34cceb6911fc1d5ed1a9c;p=p5sagit%2Fp5-mst-13.2.git

Version bump for Data::Dumper
From: "Jerry D. Hedden" <jdhedden@cpan.org>
Message-ID: <1ff86f510807300954y5451ce9eq3181169e83bc3a10@mail.gmail.com>

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

diff --git a/ext/Data/Dumper/Dumper.pm b/ext/Data/Dumper/Dumper.pm
index fe1882f..1d88e1f 100644
--- a/ext/Data/Dumper/Dumper.pm
+++ b/ext/Data/Dumper/Dumper.pm
@@ -9,7 +9,7 @@
 
 package Data::Dumper;
 
-$VERSION = '2.121_16';
+$VERSION = '2.121_17';
 
 #$| = 1;
 
diff --git a/ext/Data/Dumper/t/bugs.t b/ext/Data/Dumper/t/bugs.t
index 42931ee..ad58d6a 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 => 3;
+use Test::More tests => 4;
 use Data::Dumper;
 
 {
@@ -59,3 +59,14 @@ ok(1, "[perl #38612]"); # Still no core dump? We are fine.
     eval $txt;
     is_deeply($VAR1, \%h, '[perl #40668] Reset hash iterator');
 }
+
+# [perl #56766] Segfaults on bad syntax - fixed with version 2.121_17
+sub doh
+{
+    # 2nd arg is supposed to be an arrayref
+    my $doh = Data::Dumper->Dump([\@_],'@_');
+}
+doh('fixed');
+ok(1, "[perl #56766]"); # Still no core dump? We are fine.
+
+# EOF