projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
do non blocking connects
[spider.git]
/
perl
/
DXDebug.pm
diff --git
a/perl/DXDebug.pm
b/perl/DXDebug.pm
index a1c63407f71f1b2aba38c58782dbe77f0a73e63b..ac452413555d4975dc3750bcaad5d120234fefaa 100644
(file)
--- a/
perl/DXDebug.pm
+++ b/
perl/DXDebug.pm
@@
-56,6
+56,8
@@
sub _store
chomp;
my @l = split /\n/;
for (@l) {
chomp;
my @l = split /\n/;
for (@l) {
+ my $l = $_;
+ $l =~ s/([\x00\x08\x0B-\x1f\x7f-\xff])/uc sprintf("%%%02x",ord($1))/eg;
print "$_\n" if defined \*STDOUT;
$fp->writeunix($t, "$t^$_");
}
print "$_\n" if defined \*STDOUT;
$fp->writeunix($t, "$t^$_");
}