Parent Directory | Revision Log | Patch
revision 182 by dpavlin, Sun Aug 9 19:09:00 2009 UTC | revision 187 by dpavlin, Sun Aug 9 21:59:17 2009 UTC | |
---|---|---|
# | Line 52 sub pre_dump { | Line 52 sub pre_dump { |
52 | my $data = shift; | my $data = shift; |
53 | my $dump = dump( $data ); | my $dump = dump( $data ); |
54 | $dump =~ s{"([^"]+)"(\s*=>)}{$1 $2}gs; | $dump =~ s{"([^"]+)"(\s*=>)}{$1 $2}gs; |
55 | $dump =~ s{"([^"]+)"}{"<b>$1</b>"}gs; | $dump =~ s{"([^"]*)"}{"<b>$1</b>"}gs; |
56 | qq|<pre>$dump</pre>|; | qq|<pre>$dump</pre>|; |
57 | } | } |
58 |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |