Change 34163: [perl #56766] [PATCH]

[H . Merijn Brand]

Change 34163 by [EMAIL PROTECTED] on 2008/07/30 15:57:49

        Subject: [perl #56766] [PATCH]
        From: Vincent Pit <[EMAIL PROTECTED]>
        Date: Thu, 10 Jul 2008 18:10:10 +0200
        Message-ID: <[EMAIL PROTECTED]>

Affected files ...

... //depot/perl/ext/Data/Dumper/Dumper.pm#52 edit

Differences ...

==== //depot/perl/ext/Data/Dumper/Dumper.pm#52 (text) ====
Index: perl/ext/Data/Dumper/Dumper.pm
--- perl/ext/Data/Dumper/Dumper.pm#51~32911~    2008-01-09 02:54:27.000000000 
-0800
+++ perl/ext/Data/Dumper/Dumper.pm      2008-07-30 08:57:49.000000000 -0700
@@ -65,7 +65,7 @@
 
   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
End of Patch.