[whillers]

This is driving me crazy since declaring 2 variables as 'my'.

(Everything worked under dynamic assignment (and using 'our').)

Here is a more basic example.... can you tell me why test2 (using 'my') does
not print "hello"?



&test1();
&test2();

sub test1 {
our($x,$y)=(); # using 'our'
$x='hello';
$y='x';
print "$$y\n"; # prints hello
}

sub test2 {
my($a,$b)=(); # using 'my'
$a='hello';
$b='a';
print "$$b\n"; # prints nothing!!
}


Thanks in advance for your sanity.


-w

[Chas]

If you had been using strict you would have noticed that even using our is giving you errors. What you are tyring to do is dereference a scalar reference. This is how you should be doing that:

Code:

use strict;
use warnings;

# ...
sub ... {
  our $x = 'hello';
  our $y = \$x;
  print "$$y\n";
}

That will work (wihtout any warnings) with our and my.

~Charlie

[darkmonkey]

Code:

my($a,$b)=(); # using 'my'

Should/Could (and will work as):

Code:

my($a,$b); # using 'my'