package Data::Dumper;
-$VERSION = '2.121_19';
+$VERSION = '2.125'; # Don't forget to set version and release date in POD!
#$| = 1;
return bless($s, $c);
}
-if ($] >= 5.006) {
+if ($] >= 5.008) {
# Packed numeric addresses take less memory. Plus pack is faster than sprintf
*init_refaddr_format = sub {};
$out .= '\\' . $s->_dump($$val, "*{$name}");
}
elsif ($realtype eq 'ARRAY') {
- my($v, $pad, $mname);
+ my($pad, $mname);
my($i) = 0;
$out .= ($name =~ /^\@/) ? '(' : '[';
$pad = $s->{sep} . $s->{pad} . $s->{apad};
($name =~ /^\\?[\%\@\*\$][^{].*[]}]$/) ? ($mname = $name) :
($mname = $name . '->');
$mname .= '->' if $mname =~ /^\*.+\{[A-Z]+\}$/;
- for $v (@$val) {
+ for my $v (@$val) {
$sname = $mname . '[' . $i . ']';
$out .= $pad . $ipad . '#' . $i if $s->{indent} >= 3;
$out .= $pad . $ipad . $s->_dump($v, $sname);
=head1 DESCRIPTION
Given a list of scalars or reference variables, writes out their contents in
-perl syntax. The references can also be objects. The contents of each
+perl syntax. The references can also be objects. The content of each
variable is output in a single Perl statement. Handles self-referential
structures correctly.
$Data::Dumper::Maxdepth I<or> $I<OBJ>->Maxdepth(I<[NEWVAL]>)
Can be set to a positive integer that specifies the depth beyond which
-which we don't venture into a structure. Has no effect when
+we don't venture into a structure. Has no effect when
C<Data::Dumper::Purity> is set. (Useful in debugger when we often don't
want to see more than enough). Default is 0, which means there is
no maximum depth.
=head1 VERSION
-Version 2.121 (Aug 24 2003)
+Version 2.125 (Aug 8 2009)
=head1 SEE ALSO