diff options
| author | Karl Williamson <khw@cpan.org> | 2016-05-13 11:51:55 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2016-05-24 10:26:28 -0600 |
| commit | f17bc913886cd59ab68fde7bec9131dbb90186a0 (patch) | |
| tree | b608be1a6f786771dccf253039c4d8e9fd3001c7 /lib/locale.t | |
| parent | ad01aea0cf123e30f64d2b7f183dfa28c87af2ef (diff) | |
| download | perl-f17bc913886cd59ab68fde7bec9131dbb90186a0.tar.gz | |
lib/locale.t: Don't calculate value unless needed
Diffstat (limited to 'lib/locale.t')
| -rw-r--r-- | lib/locale.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/locale.t b/lib/locale.t index dc31b4689a..1e99b6e50e 100644 --- a/lib/locale.t +++ b/lib/locale.t @@ -900,12 +900,12 @@ sub disp_str ($) { sub report_result { my ($Locale, $i, $pass_fail, $message) = @_; - $message //= ""; - $message = " ($message)" if $message; if ($pass_fail) { push @{$Okay{$i}}, $Locale; } else { + $message //= ""; + $message = " ($message)" if $message; $Known_bad_locale{$i}{$Locale} = 1 if exists $known_bad_locales{$^O} && $Locale =~ $known_bad_locales{$^O}; $Problem{$i}{$Locale} = 1; |