Mercurial > hg > nginx-tests
diff _common.pm @ 6:8813a78ab8b5
Tests: drop LWP dependency.
author | Maxim Dounin <mdounin@mdounin.ru> |
---|---|
date | Sun, 07 Sep 2008 19:06:49 +0400 |
parents | 4d75bdb05ecf |
children | 9eb509695651 |
line wrap: on
line diff
--- a/_common.pm +++ b/_common.pm @@ -75,7 +75,7 @@ sub log_out { 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; }