Change 34165: [PATCH] Version bump for Data::Dumper

[H . Merijn Brand]

Change 34165 by [EMAIL PROTECTED] on 2008/07/30 19:51:23

        Subject: [PATCH] Version bump for Data::Dumper
        From: "Jerry D. Hedden" <[EMAIL PROTECTED]>
        Date: Wed, 30 Jul 2008 12:54:34 -0400
        Message-ID: <[EMAIL PROTECTED]>

Affected files ...

... //depot/perl/ext/Data/Dumper/Dumper.pm#53 edit
... //depot/perl/ext/Data/Dumper/t/bugs.t#4 edit

Differences ...

==== //depot/perl/ext/Data/Dumper/Dumper.pm#53 (text) ====
Index: perl/ext/Data/Dumper/Dumper.pm
--- perl/ext/Data/Dumper/Dumper.pm#52~34163~    2008-07-30 08:57:49.000000000 
-0700
+++ perl/ext/Data/Dumper/Dumper.pm      2008-07-30 12:51:23.000000000 -0700
@@ -9,7 +9,7 @@
 
 package Data::Dumper;
 
-$VERSION = '2.121_16';
+$VERSION = '2.121_17';
 
 #$| = 1;
 

==== //depot/perl/ext/Data/Dumper/t/bugs.t#4 (text) ====
Index: perl/ext/Data/Dumper/t/bugs.t
--- perl/ext/Data/Dumper/t/bugs.t#3~29224~      2006-11-07 03:16:54.000000000 
-0800
+++ perl/ext/Data/Dumper/t/bugs.t       2008-07-30 12:51:23.000000000 -0700
@@ -16,7 +16,7 @@
 }
 
 use strict;
-use Test::More tests => 3;
+use Test::More tests => 4;
 use Data::Dumper;
 
 {
@@ -59,3 +59,14 @@
     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([EMAIL PROTECTED],'@_');
+}
+doh('fixed');
+ok(1, "[perl #56766]"); # Still no core dump? We are fine.
+
+# EOF
End of Patch.