X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/00ec40a9bf1e535ebdff5b68456e4a06aa171211..327ee3d8b4ce91f452aec5d696dd44cd6a4b3cad:/dist/Data-Dumper/Dumper.pm

diff --git a/dist/Data-Dumper/Dumper.pm b/dist/Data-Dumper/Dumper.pm
index 06ca52d..22a1150 100644
--- a/dist/Data-Dumper/Dumper.pm
+++ b/dist/Data-Dumper/Dumper.pm
@@ -10,7 +10,7 @@
 package Data::Dumper;
 
 BEGIN {
-    $VERSION = '2.171'; # Don't forget to set version and release
+    $VERSION = '2.172'; # Don't forget to set version and release
 }               # date in POD below!
 
 #$| = 1;
@@ -19,7 +19,6 @@ use 5.006_001;
 require Exporter;
 
 use constant IS_PRE_516_PERL => $] < 5.016;
-use constant IS_PRE_520_PERL => $] < 5.020;
 
 use Carp ();
 
@@ -227,14 +226,6 @@ sub Names {
 sub DESTROY {}
 
 sub Dump {
-  # On old versions of perl, the xs-deparse support can fail
-  # mysteriously. Barring copious spare time, it's best to revert
-  # to the previously standard behavior of using the pure perl dumper
-  # for deparsing on old perls. --Steffen
-  if (IS_PRE_520_PERL and ($Data::Dumper::Deparse or (ref($_[0]) && $_[0]->{deparse}))) {
-    return &Dumpperl;
-  }
-
   return &Dumpxs
     unless $Data::Dumper::Useperl || (ref($_[0]) && $_[0]->{useperl})
             # Use pure perl version on earlier releases on EBCDIC platforms
@@ -1476,7 +1467,7 @@ modify it under the same terms as Perl itself.
 
 =head1 VERSION
 
-Version 2.171
+Version 2.172
 
 =head1 SEE ALSO