diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-29 00:51:34 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-29 00:51:34 +0000 |
| commit | 8fe05de6219a82cdabb2b00b140842462585472b (patch) | |
| tree | 6fadee6115040a3d534d9f212d894cb95ddcfa37 | |
| parent | 7abfcde3a6a1fb58aed2939f97b94273ef31d507 (diff) | |
| download | perl-8fe05de6219a82cdabb2b00b140842462585472b.tar.gz | |
At least a partial fix for 20010528.004.
p4raw-id: //depot/perl@10277
| -rw-r--r-- | lib/utf8_heavy.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/utf8_heavy.pl b/lib/utf8_heavy.pl index ab2e15ddec..7a70e29c25 100644 --- a/lib/utf8_heavy.pl +++ b/lib/utf8_heavy.pl @@ -34,7 +34,7 @@ sub SWASHNEW { } else { $file =~ s#^(Is|To)([A-Z].*)#$1/$2#; } - $list ||= eval { $caller->$type(); } + $list ||= ($caller ne 'main' && eval { $caller->$type(); }) || do "$file.pl" || do "$encoding/$file.pl" || do "$encoding/Is/${type}.pl" |