Parent Directory
| 
Revision Log
| 
Patch
| revision 1.37 by wakaba, Sun Jun 1 06:47:12 2008 UTC | revision 1.38 by wakaba, Sat Aug 30 13:43:50 2008 UTC | |
|---|---|---|
| # | Line 30 BEGIN { plan tests => 1073 } | Line 30 BEGIN { plan tests => 1073 } |
| 30 | ||
| 31 | use Data::Dumper; | use Data::Dumper; |
| 32 | $Data::Dumper::Useqq = 1; | $Data::Dumper::Useqq = 1; |
| 33 | $Data::Dumper::Sortkeys = 1; | |
| 34 | sub Data::Dumper::qquote { | sub Data::Dumper::qquote { |
| 35 | my $s = shift; | my $s = shift; |
| 36 | $s =~ s/([^\x20\x21-\x26\x28-\x5B\x5D-\x7E])/sprintf '\x{%02X}', ord $1/ge; | $s =~ s/([^\x20\x21-\x26\x28-\x5B\x5D-\x7E])/sprintf '\x{%02X}', ord $1/ge; |
|
||||||||
| [email protected] | ViewVC Help |
| Powered by ViewVC 1.1.24 |