[perl #56766] [PATCH]

author Vincent Pit <perl@profvince.com>

Thu, 10 Jul 2008 18:10:10 +0000 (20:10 +0200)

committer H.Merijn Brand <h.m.brand@xs4all.nl>

Wed, 30 Jul 2008 15:57:49 +0000 (15:57 +0000)
author Vincent Pit <perl@profvince.com>
Thu, 10 Jul 2008 18:10:10 +0000 (20:10 +0200)
committer H.Merijn Brand <h.m.brand@xs4all.nl>
Wed, 30 Jul 2008 15:57:49 +0000 (15:57 +0000)
diff --git a/ext/Data/Dumper/Dumper.pm b/ext/Data/Dumper/Dumper.pm

index d1a3a0f..fe1882f 100644 (file)
--- 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
author	Vincent Pit <perl@profvince.com>
	Thu, 10 Jul 2008 18:10:10 +0000 (20:10 +0200)
committer	H.Merijn Brand <h.m.brand@xs4all.nl>
	Wed, 30 Jul 2008 15:57:49 +0000 (15:57 +0000)