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 | fcfb07051cc7b26d1c0b15d191d2022df88a87be (patch) | |
| tree | 84a300ed12f675dd859cf8224e991c6dad4848bd /lib/utf8_heavy.pl | |
| parent | e159e250b6609e4a3c3e147e3843ab026966454f (diff) | |
| download | perl-fcfb07051cc7b26d1c0b15d191d2022df88a87be.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; |