This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
don't read DATA when it is closed
authorTony Cook <tony@develop-help.com>
Tue, 3 Nov 2020 03:03:32 +0000 (14:03 +1100)
committerTony Cook <tony@develop-help.com>
Tue, 3 Nov 2020 03:03:32 +0000 (14:03 +1100)
This has been producing noise for a while, but some recent change
meant it started some warning tests failing.

t/loc_tools.pl

index 57e4b2a..a87e7f6 100644 (file)
@@ -13,6 +13,7 @@
 use Config;
 use strict;
 use warnings;
+use feature 'state';
 
 eval { require POSIX; import POSIX 'locale_h'; };
 my $has_locale_h = ! $@;
@@ -446,7 +447,8 @@ sub find_locales ($;$) {
         }
 
         # The rest of the locales are in this file.
-        push @Data, <DATA>; close DATA;
+        state @my_data = <DATA>; close DATA if fileno DATA;
+        push @Data, @my_data;
 
         foreach my $line (@Data) {
             chomp $line;