This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
t/loc_tools.pl: Remove debug line
authorKarl Williamson <khw@cpan.org>
Tue, 9 Jan 2018 21:20:35 +0000 (14:20 -0700)
committerKarl Williamson <khw@cpan.org>
Tue, 9 Jan 2018 21:24:03 +0000 (14:24 -0700)
This was inadvertently left in in the previous commit

t/loc_tools.pl

index 202ed02..d9dbfcd 100644 (file)
@@ -365,7 +365,6 @@ sub find_locales ($;$) {
         my $data_file = ($^H & 0x08 || (${^OPEN} || "") =~ /:utf8/)
                         ? "./lib/locale/utf8"
                         : "./lib/locale/latin1";
-        $data_file='khw foobar';
         if (-e $data_file) {
             @Data = do $data_file;
         }