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 |