Mercurial > hg > nginx-tests
diff config_dump.t @ 624:1dd0e909fe94
Tests: compatibility with perl <= 5.12 in config_dump.t.
Older perl versions do not have the tr 'r' option.
author | Sergey Kandaurov <pluknet@nginx.com> |
---|---|
date | Tue, 07 Jul 2015 17:42:58 +0300 |
parents | 884b2f0c173f |
children | e9064d691790 |
line wrap: on
line diff
--- a/config_dump.t +++ b/config_dump.t @@ -100,5 +100,7 @@ sub getconf { my $prefix = "# configuration file $d/$conf:\n"; my $offset = index($string, $prefix) + length($prefix); my $len = length($t->read_file($conf)); - return substr($string, $offset, $len) =~ tr/\r//rd; + my $s = substr($string, $offset, $len); + $s =~ tr/\r//d; + return $s; }