| commit | 4621cc517b5f55b12ac6a3761f799332d25dc07a | [log] [tgz] |
|---|---|---|
| author | Maxim Dounin <mdounin@mdounin.ru> | Sun Sep 07 19:06:49 2008 +0400 |
| committer | Maxim Dounin <mdounin@mdounin.ru> | Sun Sep 07 19:06:49 2008 +0400 |
| tree | 28e93065db32ce9cce0d0629f44d4ea626324c4d | |
| parent | 668f89ef3edfd29b3d74d78e8e3717d3de204d98 [diff] [blame] |
Tests: drop LWP dependency.
diff --git a/_common.pm b/_common.pm index 482c88c..44b02f7 100644 --- a/_common.pm +++ b/_common.pm
@@ -75,7 +75,7 @@ sub log_in { my ($msg) = @_; $msg =~ s/^/# << /gm; - $msg =~ s/([\x00-\x1f\x7f-])/sprintf('\\x%02x', ord($1)) . (($1 eq "\n") ? "\n" : '')/gmxe; + $msg =~ s/([^\x20-\x7e])/sprintf('\\x%02x', ord($1)) . (($1 eq "\n") ? "\n" : '')/gmxe; $msg .= "\n" unless $msg =~ /\n\Z/; print $msg; }