diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-05-01 19:09:21 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-05-01 19:09:21 +0000 |
| commit | 7668bf4dc1ed94a756f3bd5e7cb95caf14c88e1f (patch) | |
| tree | 1ddbd6fa41e87245063b3ebc67ef4b668e7cfddb /lib/base.pm | |
| parent | e8f84f558071a9089231d1926b6882ff7a9af9b8 (diff) | |
| download | perl-7668bf4dc1ed94a756f3bd5e7cb95caf14c88e1f.tar.gz | |
Fix for base.pm clobbering $VERSION
p4raw-id: //depot/perlio@9936
Diffstat (limited to 'lib/base.pm')
| -rw-r--r-- | lib/base.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/base.pm b/lib/base.pm index 8db7d72c25..681e8f03e8 100644 --- a/lib/base.pm +++ b/lib/base.pm @@ -56,7 +56,7 @@ sub import { next if $pkg->isa($base); push @{"$pkg\::ISA"}, $base; my $vglob; - unless ($vglob = ${"$base\::"}{VERSION} and $vglob{SCALAR}) { + unless (${*{"$base\::VERSION"}{SCALAR}}) { eval "require $base"; # Only ignore "Can't locate" errors from our eval require. # Other fatal errors (syntax etc) must be reported. @@ -68,7 +68,7 @@ sub import { "which defines that package first.)"); } ${"$base\::VERSION"} = "-1, set by base.pm" - unless $vglob = ${"$base\::"}{VERSION} and $vglob{SCALAR}; + unless ${*{"$base\::VERSION"}{SCALAR}}; } # A simple test like (defined %{"$base\::FIELDS"}) will |