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.