In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/2db3e0912896dca25c764b330d35df25367db1a6?hp=9d233e1229b9d4643a30bb6859b534d2052d00cd>
- Log ----------------------------------------------------------------- commit 2db3e0912896dca25c764b330d35df25367db1a6 Author: Karl Williamson <[email protected]> Date: Mon Sep 1 12:11:48 2014 -0600 lib/utf8_heavy.pl: Don't return empty under miniperl When run under miniperl before mktables has generated its tables , this program would return empty for Unicode properties instead of an error condition. The problem was that when it detected this, it just continued on to the rest of the code which assumed it had found an empty table, instead of no table at all. The solution is to return an e error when one is detected. ----------------------------------------------------------------------- Summary of changes: lib/utf8_heavy.pl | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/lib/utf8_heavy.pl b/lib/utf8_heavy.pl index 3cd8e83..43f3399 100644 --- a/lib/utf8_heavy.pl +++ b/lib/utf8_heavy.pl @@ -175,7 +175,11 @@ sub _loose_name ($) { } if (miniperl) { eval "require '$unicore_dir/Heavy.pl'"; - last GETFILE if $@; + if ($@) { + print STDERR __LINE__, ": '$@'\n" if DEBUG; + pop @recursed if @recursed; + return $type; + } } else { require "$unicore_dir/Heavy.pl"; -- Perl5 Master Repository
