From: Vincent Pit <perl@profvince.com>
Date: Thu, 10 Jul 2008 18:10:10 +0000 (+0200)
Subject: [perl #56766] [PATCH]
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b09a11114be6edce50b92b1c65da7aba898fd577;p=p5sagit%2Fp5-mst-13.2.git

[perl #56766] [PATCH]
Message-ID: <48763462.7020506@profvince.com>

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

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