[PATCH] [perl #56766] [PATCH] Message-ID: <48763462.7020506 at profvince.com>
Vincent Pit
perl at profvince.com
Thu Jul 10 18:10:10 UTC 2008
p4raw-id: //depot/perl at 34163
---
ext/Data/Dumper/Dumper.pm | 2 +-
1 files changed, 1 insertions(+), 1 deletions(-)
diff --git a/ext/Data/Dumper/Dumper.pm b/ext/Data/Dumper/Dumper.pm
index d1a3a0f..fe1882f 100644
--- a/ext/Data/Dumper/Dumper.pm
+++ b/ext/Data/Dumper/Dumper.pm
@@ -65,7 +65,7 @@ sub new {
croak "Usage: PACKAGE->new(ARRAYREF, [ARRAYREF])"
unless (defined($v) && (ref($v) eq 'ARRAY'));
- $n = [] unless (defined($n) && (ref($v) eq 'ARRAY'));
+ $n = [] unless (defined($n) && (ref($n) eq 'ARRAY'));
my($s) = {
level => 0, # current recursive depth
--
1.5.6.5
--ZGiS0Q5IWpPtfppv--
More information about the Perl-maintainers
mailing list