diff options
| author | Vincent Pit <perl@profvince.com> | 2008-07-10 20:10:10 +0200 |
|---|---|---|
| committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2008-07-30 15:57:49 +0000 |
| commit | b09a11114be6edce50b92b1c65da7aba898fd577 (patch) | |
| tree | c3ad3d4a7f91708bcb5bd4c99b1bef7df4191725 /ext | |
| parent | 395ff119ce07b37b4047046f91a4e4d2444f162b (diff) | |
| download | perl-b09a11114be6edce50b92b1c65da7aba898fd577.tar.gz | |
[perl #56766] [PATCH]
Message-ID: <48763462.7020506@profvince.com>
p4raw-id: //depot/perl@34163
Diffstat (limited to 'ext')
| -rw-r--r-- | 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 d1a3a0f51b..fe1882f041 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 |