From: Gurusamy Sarathy <gsar@cpan.org>
Date: Wed, 16 Jun 1999 16:49:55 +0000 (+0000)
Subject: dump C<0> as such, not C<'0'>
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=45b49486f748a106f98e7237be0fb2c953389866;p=p5sagit%2Fp5-mst-13.2.git

dump C<0> as such, not C<'0'>

p4raw-id: //depot/perl@3540
---

diff --git a/ext/Data/Dumper/Dumper.pm b/ext/Data/Dumper/Dumper.pm
index b1fd2b7..d653af3 100644
--- a/ext/Data/Dumper/Dumper.pm
+++ b/ext/Data/Dumper/Dumper.pm
@@ -389,7 +389,7 @@ sub _dump {
     elsif (!defined($val)) {
       $out .= "undef";
     }
-    elsif ($val =~ /^-?[1-9]\d{0,8}$/) { # safe decimal number
+    elsif ($val =~ /^(?:0|-?[1-9]\d{0,8})$/) { # safe decimal number
       $out .= $val;
     }
     else {				 # string