'use vars' incompatibility!

$ eperl -w -e '
   use strict;
   use vars '$foo';
   BEGIN {
      $some::var="bar";
      *foo = \$some::var;
   }
   print "$foo\n";
'
Variable "$foo" is not imported at -e line 8.
Global symbol "$foo" requires explicit package name at -e line 8.
Execution of -e aborted due to compilation errors.

Replacing "use vars" with the equivalent "our" works and prints "bar".
So did the above code in 5.005_03.

-- 
Matthias Urlichs  |  noris network GmbH   |   smurf@noris.de  |  ICQ: 20193661
The quote was selected randomly. Really.    |      http://www.noris.de/~smurf/
-- 
The ends justify the means.
               --after Matthew Prior

• 'use vars' incompatibility! by Unknown Sender
• Re: 'use vars' incompatibility! by Unknown Sender
• Re: 'use vars' incompatibility! by Gurusamy Sarathy
• 'use vars' incompatibility! by M.J.T. Guy