Mailing List Archive

If "foo" contains:

print "Package ",(caller)[0],"\n";

and you do

$x=1
if ($x==1) { package bar; require 'foo' }

This prints:
Package main

If instead you have just
{ package bar; require 'foo' }
Then it prints
Package bar
as expected.

BTW
if (1==1) { package bar; require 'foo' }
also fails.

Perl 5.001l (sorry, I'm waiting for "n" :-)

Ian