From: Gisle Aas <gisle@aas.no>
Date: Tue, 4 Aug 1998 22:56:11 +0000 (+0200)
Subject: kill bogus warning from -we 'use utf8; $_="\x{FF}"'
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0fa1278611917eb19e7164fbdbdc98dab8368e2a;p=p5sagit%2Fp5-mst-13.2.git

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
---

diff --git a/lib/utf8_heavy.pl b/lib/utf8_heavy.pl
index d9454b0..e00db32 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;