From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 14 Apr 2002 15:41:01 +0000 (+0000)
Subject: use vars wasn't use utf8 aware.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8a305e7f3b50520c11ce6e4840222f10e954c65e;p=p5sagit%2Fp5-mst-13.2.git

use vars wasn't use utf8 aware.

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

diff --git a/lib/vars.pm b/lib/vars.pm
index a051ba1..f6125fb 100644
--- a/lib/vars.pm
+++ b/lib/vars.pm
@@ -20,8 +20,11 @@ sub import {
 		Carp::croak("Can't declare individual elements of hash or array");
 	    } elsif (warnings::enabled() and length($sym) == 1 and $sym !~ tr/a-zA-Z//) {
 		warnings::warn("No need to declare built-in vars");
-            } elsif  ( $^H &= strict::bits('vars') ) {
-              Carp::croak("'$_' is not a valid variable name under strict vars");
+            } elsif  ( $^H &= strict::bits('vars') &&
+		       # Either no 'use utf8' or if utf8, no non-word
+		       ($^H & $utf8::hint_bits == 0 ||
+			$sym =~ /\W/) ) {
+		  Carp::croak("'$_' is not a valid variable name under strict vars");
 	    }
 	}
 	$sym = "${callpack}::$sym" unless $sym =~ /::/;