diff options
| author | Gisle Aas <gisle@aas.no> | 1998-08-05 00:56:11 +0200 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-08-08 22:31:37 +0000 |
| commit | 0fa1278611917eb19e7164fbdbdc98dab8368e2a (patch) | |
| tree | 84a300ed12f675dd859cf8224e991c6dad4848bd /lib/utf8_heavy.pl | |
| parent | a14b48bc88a4a3d222e5f4742558137ce3b4e851 (diff) | |
| download | perl-0fa1278611917eb19e7164fbdbdc98dab8368e2a.tar.gz | |
kill bogus warning from -we 'use utf8; $_="\x{FF}"'
Message-ID: <m3yat4sbys.fsf@furu.g.aas.no>
Subject: Re: another joyride begins
p4raw-id: //depot/perl@1765
Diffstat (limited to 'lib/utf8_heavy.pl')
| -rw-r--r-- | lib/utf8_heavy.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/utf8_heavy.pl b/lib/utf8_heavy.pl index d9454b0f5e..e00db32aba 100644 --- a/lib/utf8_heavy.pl +++ b/lib/utf8_heavy.pl @@ -29,9 +29,9 @@ sub SWASHNEW { $file =~ s#^(I[sn]|To)([A-Z].*)#$1/$2#; $list ||= eval { $caller->$type(); } || do "$file.pl" - || do "unicode/$file.pl" - || do "unicode/Is/${type}.pl" - || croak("Can't find character property definition via $caller->$type or $file.pl"); + || do "$encoding/$file.pl" + || do "$encoding/Is/${type}.pl" + || croak("Can't find $encoding character property definition via $caller->$type or $file.pl"); $| = 1; |