| Andrew Geissler | 82c905d | 2020-04-13 13:39:40 -0500 | [diff] [blame] | 1 | From a04a75f20f03aa08ce8118b3b0b3f93eb3e997c5 Mon Sep 17 00:00:00 2001 |
| 2 | From: Richard Leach <rich+perl@hyphen-dash-hyphen.info> |
| 3 | Date: Sun, 19 May 2019 20:16:41 +0000 |
| 4 | Subject: [PATCH] PATCH: [perl #134117] Close DATA in loc_tools.pl |
| 5 | |
| 6 | This prevents unexpected text and fixes test lib/warnings.t |
| 7 | |
| 8 | Upstream-Status: Backport [a04a75f20f03aa08ce8118b3b0b3f93eb3e997c5] |
| 9 | |
| 10 | Signed-off-by: Matthew Zeng <matthew.zeng@windriver.com> |
| 11 | |
| 12 | --- |
| 13 | t/loc_tools.pl | 2 +- |
| 14 | 1 file changed, 1 insertion(+), 1 deletion(-) |
| 15 | |
| 16 | diff --git a/t/loc_tools.pl b/t/loc_tools.pl |
| 17 | index c76e29388a..beebd98d88 100644 |
| 18 | --- a/t/loc_tools.pl |
| 19 | +++ b/t/loc_tools.pl |
| 20 | @@ -421,7 +421,7 @@ sub find_locales ($;$) { |
| 21 | } |
| 22 | |
| 23 | # The rest of the locales are in this file. |
| 24 | - push @Data, <DATA>; |
| 25 | + push @Data, <DATA>; close DATA; |
| 26 | |
| 27 | foreach my $line (@Data) { |
| 28 | my ($locale_name, $language_codes, $country_codes, $encodings) = |
| 29 | -- |
| 30 | 2.25.0 |