in reply to Re^3: Unable to declare local variable with "use strict".
in thread Unable to declare local variable with "use strict".

Note that anyone with a reply suggesting you replace the 'local' with 'my' doesn't understand why you are getting the error.

I did just that, and I beg to differ. The solution I recommended uses my and works quite well. While changing to my alone is not enough, it can definitely be part of the solution.

Replies are listed 'Best First'.
Re^5: Unable to declare local variable with "use strict".
by Anonymous Monk on Mar 27, 2010 at 16:36 UTC
    I beg to differ. The solution I recommended uses my and works quite well. While changing to my alone is not enough..

    You're doing it again.

[reply]

      Did you run it? Maybe if you told us what error you got? 

      #!/usr/bin/perl -w
use strict;

ref_test1();

sub ref_test1
{
    print "Here in ref_test1.\n";
    ref_test2("connect");
}

sub ref_test2
{
    my ($type) = @_;
    print "Type: $type\n";
    print "Here in ref_test2\n";
}

      [download]
      Here in ref_test1.
Type: connect
Here in ref_test2

      [download]
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom