Parent Directory | Revision Log | Patch
revision 494 by dpavlin, Mon Jan 25 18:35:54 2010 UTC | revision 495 by dpavlin, Mon Jan 25 18:37:22 2010 UTC | |
---|---|---|
# | Line 269 sub _dump | Line 269 sub _dump |
269 | } | } |
270 | ||
271 | for my $key (@orig_keys) { | for my $key (@orig_keys) { |
272 | my $val = \$rval->{$key}; | my $val = eval { \$rval->{$key} }; |
273 | $key = quote($key) if $is_perl_keyword{$key} || | $key = quote($key) if $is_perl_keyword{$key} || |
274 | !($key =~ /^[a-zA-Z_]\w{0,19}\z/ || | !($key =~ /^[a-zA-Z_]\w{0,19}\z/ || |
275 | $key =~ /^-?[1-9]\d{0,8}\z/ | $key =~ /^-?[1-9]\d{0,8}\z/ |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |