This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
395ff11
)
[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)
Message-ID: <
48763462
.7020506@profvince.com>
p4raw-id: //depot/perl@34163
ext/Data/Dumper/Dumper.pm
patch
|
blob
|
blame
|
history
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