diff options
| author | Perl 5 Porters <perl5-porters@africa.nicoh.com> | 1996-03-17 11:26:25 +0000 |
|---|---|---|
| committer | Charles Bailey <bailey@genetics.upenn.edu> | 1996-03-17 11:26:25 +0000 |
| commit | 49da0595a758084ead0616930380fee60b25aece (patch) | |
| tree | 6b5ac72725a6d5b5b0c09efdbd7ea55cb4ffa119 /lib/Symbol.pm | |
| parent | 2e917f57b88e1e5c693a9d2b884773745f7b9bf4 (diff) | |
| download | perl-49da0595a758084ead0616930380fee60b25aece.tar.gz | |
Accept old (') and new (::) package delimiters
Diffstat (limited to 'lib/Symbol.pm')
| -rw-r--r-- | lib/Symbol.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Symbol.pm b/lib/Symbol.pm index a12e6dcb30..c266d64373 100644 --- a/lib/Symbol.pm +++ b/lib/Symbol.pm @@ -73,7 +73,7 @@ sub ungensym ($) {} sub qualify ($;$) { my ($name) = @_; - if (! ref($name) && $name !~ /::/) { + if (!ref($name) && index($name, '::') == -1 && index($name, "'") == -1) { my $pkg; # Global names: special character, "^x", or other. if ($name =~ /^([^a-z])|(\^[a-z])$/i || $global{$name}) { |