Synchronize with Data::Dumper 2.121_20 on CPAN

diff --git a/ext/Data-Dumper/Changes b/ext/Data-Dumper/Changes
index 8cee096..ba2db37 100644 (file)
--- a/ext/Data-Dumper/Changes
+++ b/ext/Data-Dumper/Changes
@@ -6,6 +6,13 @@ HISTORY - public release history for Data::Dumper
 
 =over 8
 
+=item 2.121_20 (Jun  6 2009)
+
+- A host of bug fixes and improvements that have
+accumulated in the perl core
+
+- Updated backport to 5.6.1 by Steffen Mueller <smueller@cpan.org>.
+
 =item 2.121 (Aug 24 2003)
 
 Backport to 5.6.1 by Ilya Martynov <ilya@martynov.org>.

diff --git a/ext/Data-Dumper/t/dumper.t b/ext/Data-Dumper/t/dumper.t
index 6b99ca1..a285f17 100644 (file)
--- a/ext/Data-Dumper/t/dumper.t
+++ b/ext/Data-Dumper/t/dumper.t
@@ -1175,7 +1175,7 @@ TEST q(Data::Dumper->new(\@strings_ni)->Dump), 'Strings NV,IV';
 TEST q(Data::Dumper->new(\@strings_nis)->Dump), 'Strings NV,IV,PV';
 if ($XS) {
  my $nv_preserves_uv = defined $Config{d_nv_preserves_uv};
- my $nv_preserves_uv_4bits = $Config{nv_preserves_uv_bits} >= 4;
+ my $nv_preserves_uv_4bits = exists($Config{nv_preserves_uv_bits}) && $Config{nv_preserves_uv_bits} >= 4;
   $WANT=$WANT_XS_N;
   TEST q(Data::Dumper->new(\@numbers)->Dumpxs), 'XS Numbers';
   TEST q(Data::Dumper->new(\@numbers_s)->Dumpxs), 'XS Numbers PV';