# HG changeset patch
# User Sergey Kandaurov <pluknet@nginx.com>
# Date 1436280178 -10800
# Node ID 1dd0e909fe94b6b11813c837a5701eb54d9d2339
# Parent  b70df69242909d17e9135c4ffe4e869e549652a0
Tests: compatibility with perl <= 5.12 in config_dump.t.

Older perl versions do not have the tr 'r' option.

diff --git a/config_dump.t b/config_dump.t
--- 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;
 }