projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
95e3273
)
fix problem with chomp
author
minima
<minima>
Fri, 30 Mar 2001 21:22:50 +0000
(21:22 +0000)
committer
minima
<minima>
Fri, 30 Mar 2001 21:22:50 +0000
(21:22 +0000)
perl/DXDebug.pm
patch
|
blob
|
history
diff --git
a/perl/DXDebug.pm
b/perl/DXDebug.pm
index 77ad46396406d362e3de927b41ca1a45dadf2261..0e96362674a3a8b3efadb4b98aa5a421ef3e2c95 100644
(file)
--- a/
perl/DXDebug.pm
+++ b/
perl/DXDebug.pm
@@
-53,8
+53,9
@@
sub dbgstore
{
my $t = time;
for (@_) {
- chomp;
- my @l = split /\n/;
+ my $r = $_;
+ chomp $r;
+ my @l = split /\n/, $r;
for (@l) {
my $l = $_;
$l =~ s/([\x00\x08\x0B-\x1f\x7f-\xff])/uc sprintf("%%%02x",ord($1))/eg;