Mercurial > hg > nginx-tests

diff _common.pm @ 6:8813a78ab8b5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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;
 }