diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-10-12 07:47:42 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-10-12 07:47:42 +0000 |
| commit | 31ba73698a0727c9eb5d9211ea8cf958e27a6804 (patch) | |
| tree | 29e45d200b6d9e856c32f96cfdb7adc6c6314d25 /ext | |
| parent | 635ca5f641798401ea344280b8ebf764f773f806 (diff) | |
| download | perl-31ba73698a0727c9eb5d9211ea8cf958e27a6804.tar.gz | |
Funny symbol table names can be shared, too
p4raw-id: //depot/perl@32103
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/Opcode/Safe.pm | 3 |
1 files changed, 0 insertions, 3 deletions
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"; |