X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2Futf8_heavy.pl;h=8649e9e07e77ebfe20dff3af16cacc2f1b1f2d3b;hb=8c99d73ee7ce90de2561496f683f3850d1269e1d;hp=0f588237eb1a52d9a982333973c31206f275826e;hpb=710250cb7807a86565709f8b12d46807ebcd55e8;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/utf8_heavy.pl b/lib/utf8_heavy.pl
index 0f58823..8649e9e 100644
--- a/lib/utf8_heavy.pl
+++ b/lib/utf8_heavy.pl
@@ -38,7 +38,7 @@ sub SWASHNEW {
     if ($list) {
 	my @tmp = split(/^/m, $list);
 	my %seen;
-	local $^W = 0;
+	no warnings;
 	$extras = join '', grep /^[^0-9a-fA-F]/, @tmp;
 	$list = join '',
 	    sort { hex $a <=> hex $b }