From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Fri, 12 Oct 2007 07:47:42 +0000 (+0000)
Subject: Funny symbol table names can be shared, too
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=58fb872630577640895aca735fb10b28cd230d92;p=p5sagit%2Fp5-mst-13.2.git

Funny symbol table names can be shared, too

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

diff --git a/ext/Opcode/Safe.pm b/ext/Opcode/Safe.pm
index fc3ff08..1ce787b 100644
--- a/ext/Opcode/Safe.pm
+++ b/ext/Opcode/Safe.pm
@@ -231,9 +231,6 @@ sub share_from {
     my $arg;
     foreach $arg (@$vars) {
 	# catch some $safe->share($var) errors:
-	croak("'$arg' not a valid symbol table name")
-	    unless $arg =~ /^[\$\@%*&]?\w[\w:]*$/
-	    	or $arg =~ /^\$\W$/;
 	my ($var, $type);
 	$type = $1 if ($var = $arg) =~ s/^(\W)//;
 	# warn "share_from $pkg $type $var";