diff options
| author | Karl Williamson <public@khwilliamson.com> | 2014-03-12 13:03:22 -0600 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2014-03-13 16:38:44 -0600 |
| commit | a5cf558aeda18ca1d1203fb44617ec10b564eb12 (patch) | |
| tree | 5219c06ca2a5ed538116da42b7dc0a87ae7f6626 /lib/locale.t | |
| parent | d458c02c88acd3b20dabe5e2c98fa6a9668beee8 (diff) | |
| download | perl-a5cf558aeda18ca1d1203fb44617ec10b564eb12.tar.gz | |
PATCH: [perl #121340] lib/locale.t noisy+complaining but passes on Win32
It turns out that these messages were not printed as one would expect
under TAP, but were output using warn().
Diffstat (limited to 'lib/locale.t')
| -rw-r--r-- | lib/locale.t | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/locale.t b/lib/locale.t index ab24558356..e37a32786f 100644 --- a/lib/locale.t +++ b/lib/locale.t @@ -2161,12 +2161,12 @@ if ($didwarn) { my $s = join(" ", @s); $s =~ s/(.{50,60}) /$1\n#\t/g; - warn + print "# The following locales\n#\n", "#\t", $s, "\n#\n", "# tested okay.\n#\n", } else { - warn "# None of your locales were fully okay.\n"; + print "# None of your locales were fully okay.\n"; } if (@F) { @@ -2181,13 +2181,13 @@ if ($didwarn) { $details = "# For even more details, rerun, with environment variable PERL_DEBUG_FULL_TEST=2.\n"; } - warn + print "# The following locales\n#\n", "#\t", $F, "\n#\n", "# had problems.\n#\n", $details; } else { - warn "# None of your locales were broken.\n"; + print "# None of your locales were broken.\n"; } } |