This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
kill bogus warning from -we 'use utf8; $_="\x{FF}"'
authorGisle Aas <gisle@aas.no>
Tue, 4 Aug 1998 22:56:11 +0000 (00:56 +0200)
committerGurusamy Sarathy <gsar@cpan.org>
Sat, 8 Aug 1998 22:31:37 +0000 (22:31 +0000)
Message-ID: <m3yat4sbys.fsf@furu.g.aas.no>
Subject: Re: another joyride begins

p4raw-id: //depot/perl@1765

lib/utf8_heavy.pl

index d9454b0..e00db32 100644 (file)
@@ -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;