p5pRT
commented
21 years ago From l.moye@2020speech.com
Created by l.moye@2020speech.com
A "my" variable is declared in subroutine A. Subroutine B is declared within the scope of subroutine A so that it can access this variable. The first time subroutine A is called it all works correctly. The second time subroutine A is called it (A) gets a new\, clean copy of the variable\, but B still carries on using the copy that is got the first time.
Is this a bug or do I have a profound misunderstanding of "my"?
The program below demonstrates the behaviour ****************************************************************************** #!/usr/local/bin/perl
@l = qw(long green fish); print "in test_my: "\, \@l\, "\<"\, join (" "\, @l)\, ">\n"; &my_sub(@l);
@l = qw(mad cows); print "in test_my: "\, \@l\, "\<"\, join (" "\, @l)\, ">\n"; &my_sub(@l);
sub my_sub { my @l; print "top of my_sub "\, \@l\, "\<"\, join (" "\, @l)\, ">\n"; foreach $t (@_) { print "in my_sub loop: $t\n"; &my_sub_sub($t); } print "bottom of my_sub "\, \@l\, "\<"\, join (" "\, @l)\, ">\n";
sub my_sub_sub { print "in my_sub_sub: @_\n"; push @l\, @_; print "in my_sub_sub "\, \@l\, "\<"\, join (" "\, @l)\, ">\n"; }
}
******************************************************************************
running it produces:
******************************************************************************
ferlinghetti/perl: ./test_my_for_mailing
in test_my: ARRAY(0x140011310)\
Migrated from rt.perl.org#17196 (status was 'resolved')
Searchable as RT17196$