From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 31 May 2004 17:26:56 +0000 (+0000)
Subject: Don't need to require utf8_pva.pl at top of file
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8aa03e5d63b0323d10767d89d543f39f35238218;p=p5sagit%2Fp5-mst-13.2.git

Don't need to require utf8_pva.pl at top of file

p4raw-id: //depot/perl@22880
---

diff --git a/lib/utf8_heavy.pl b/lib/utf8_heavy.pl
index 9691035..309cbef 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;