This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Funny symbol table names can be shared, too
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Fri, 12 Oct 2007 07:47:42 +0000 (07:47 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Fri, 12 Oct 2007 07:47:42 +0000 (07:47 +0000)
p4raw-id: //depot/perl@32103

ext/Opcode/Safe.pm

index fc3ff08..1ce787b 100644 (file)
@@ -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";