Mercurial > hg > nginx-tests

comparison lib/Test/Nginx.pm @ 165:fca70f483608

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tests: fix previous commit (print original message length).
author Maxim Dounin <mdounin@mdounin.ru>
date Mon, 01 Aug 2011 21:50:01 +0400
parents f602276b9bb9
children 5db96b64cead
comparison
equal deleted inserted replaced
164:f602276b9bb9 165:fca70f483608
314 my ($prefix, $msg) = @_; 314 my ($prefix, $msg) = @_;
315 ($prefix, $msg) = ('', $prefix) unless defined $msg; 315 ($prefix, $msg) = ('', $prefix) unless defined $msg;
316 $prefix .= ' ' if length($prefix) > 0; 316 $prefix .= ' ' if length($prefix) > 0;
317 317
318 if (length($msg) > 4096) { 318 if (length($msg) > 4096) {
319 $msg = substr($msg, 0, 4096); 319 $msg = substr($msg, 0, 4096)
320 $msg .= "(...logged only 4096 of " . length($msg) . " bytes)"; 320 . "(...logged only 4096 of " . length($msg)
321 . " bytes)";
321 } 322 }
322 323
323 $msg =~ s/^/# $prefix/gm; 324 $msg =~ s/^/# $prefix/gm;
324 $msg =~ s/([^\x20-\x7e])/sprintf('\\x%02x', ord($1)) . (($1 eq "\n") ? "\n" : '')/gmxe; 325 $msg =~ s/([^\x20-\x7e])/sprintf('\\x%02x', ord($1)) . (($1 eq "\n") ? "\n" : '')/gmxe;
325 $msg .= "\n" unless $msg =~ /\n\Z/; 326 $msg .= "\n" unless $msg =~ /\n\Z/;