diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-02 07:53:51 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-02 07:53:51 +0000 |
| commit | db376a245d40f9f81e37632708a9ad2cfc67ef6a (patch) | |
| tree | 8c6efaa9d96c8eab8c80c68fe4e15d92aec8f7b4 /lib/utf8_heavy.pl | |
| parent | 65e1a3a11dd767e7393f37a7bd811ce587d64985 (diff) | |
| download | perl-db376a245d40f9f81e37632708a9ad2cfc67ef6a.tar.gz | |
use warnings rather than fiddling with $^W (from Paul Marquess)
p4raw-id: //depot/perl@4954
Diffstat (limited to 'lib/utf8_heavy.pl')
| -rw-r--r-- | lib/utf8_heavy.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/utf8_heavy.pl b/lib/utf8_heavy.pl index 0f588237eb..8649e9e07e 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 } |