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
[perl5.git] / 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;
         }