diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-07-15 08:59:13 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-07-15 08:59:13 +0000 |
| commit | 219bf41872a28e4a469d4274a14dca87429a5a5e (patch) | |
| tree | 240666aa427d8bd88a5cdebf7e48798d6ca31b3c /lib/version.t | |
| parent | a469502ffde47af0b05b575bdfc51039218392df (diff) | |
| download | perl-219bf41872a28e4a469d4274a14dca87429a5a5e.tar.gz | |
Upgrade to version 0.76 by John Peacock
Fix segfault in serialized version objects
(bug #56606)
p4raw-id: //depot/perl@34142
Diffstat (limited to 'lib/version.t')
| -rw-r--r-- | lib/version.t | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/lib/version.t b/lib/version.t index a839d5d6c3..47989e3394 100644 --- a/lib/version.t +++ b/lib/version.t @@ -551,7 +551,13 @@ SKIP: { is $alpha2, $alpha1, "Don't fall for Data::Dumper's tricks"; } - + { + # http://rt.perl.org/rt3/Ticket/Display.html?id=56606 + my $badv = bless { version => [1,2,3] }, "version"; + is $badv, '1.002003', "Deal with badly serialized versions from YAML"; + my $badv2 = bless { qv => 1, version => [1,2,3] }, "version"; + is $badv2, 'v1.2.3', "Deal with badly serialized versions from YAML "; + } } 1; |