PATCH: [perl #134117] Close DATA in loc_tools.pl

This prevents unexpected text in lib/warnings.t

diff --git a/t/loc_tools.pl b/t/loc_tools.pl
index c76e293..beebd98 100644 (file)
--- 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) =