diff options
| author | Nicholas Clark <nick@ccl4.org> | 2004-05-31 17:26:56 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2004-05-31 17:26:56 +0000 |
| commit | 8aa03e5d63b0323d10767d89d543f39f35238218 (patch) | |
| tree | 8fa179b585916a9f0f03b51b59461c1e2a6926c5 /lib/utf8_heavy.pl | |
| parent | ca12659b0e397cc5b28088111fe498237a2180dd (diff) | |
| download | perl-8aa03e5d63b0323d10767d89d543f39f35238218.tar.gz | |
Don't need to require utf8_pva.pl at top of file
p4raw-id: //depot/perl@22880
Diffstat (limited to 'lib/utf8_heavy.pl')
| -rw-r--r-- | lib/utf8_heavy.pl | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lib/utf8_heavy.pl b/lib/utf8_heavy.pl index 96910354cc..309cbeff75 100644 --- a/lib/utf8_heavy.pl +++ b/lib/utf8_heavy.pl @@ -1,7 +1,6 @@ package utf8; use strict; use warnings; -require "utf8_pva.pl"; sub DEBUG () { 0 } @@ -78,8 +77,8 @@ sub SWASHNEW { ## ## See if it's in some enumeration. ## + require "utf8_pva.pl"; if ($type =~ /^([\w\s]+)[:=]\s*(.*)/) { - require "utf8_pva.pl"; my ($enum, $val) = (lc $1, lc $2); $enum =~ tr/ _-//d; $val =~ tr/ _-//d; |