From a04a75f20f03aa08ce8118b3b0b3f93eb3e997c5 Mon Sep 17 00:00:00 2001
From: Richard Leach <rich+perl@hyphen-dash-hyphen.info>
Date: Sun, 19 May 2019 20:16:41 +0000
Subject: [PATCH] PATCH: [perl #134117] Close DATA in loc_tools.pl

This prevents unexpected text and fixes test lib/warnings.t

Upstream-Status: Backport [a04a75f20f03aa08ce8118b3b0b3f93eb3e997c5]

Signed-off-by: Matthew Zeng <matthew.zeng@windriver.com>

---
 t/loc_tools.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/t/loc_tools.pl b/t/loc_tools.pl
index c76e29388a..beebd98d88 100644
--- a/t/loc_tools.pl
+++ b/t/loc_tools.pl
@@ -421,7 +421,7 @@ sub find_locales ($;$) {
         }

         # The rest of the locales are in this file.
-        push @Data, <DATA>;
+        push @Data, <DATA>; close DATA;

         foreach my $line (@Data) {
             my ($locale_name, $language_codes, $country_codes, $encodings) =
--
2.25.0
