From 31ba73698a0727c9eb5d9211ea8cf958e27a6804 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Fri, 12 Oct 2007 07:47:42 +0000
Subject: Funny symbol table names can be shared, too

p4raw-id: //depot/perl@32103
---
 ext/Opcode/Safe.pm | 3 ---
 1 file changed, 3 deletions(-)

(limited to 'ext')

diff --git a/ext/Opcode/Safe.pm b/ext/Opcode/Safe.pm
index fc3ff080cd..1ce787b74a 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";
-- 
cgit v1.2.1