Help for this page
my $d = *{ 'main::destination::' }; delete $d->{foo};
*FOO = sub { print "SUB FOO OK!\n" } ; $FOO = 123 ; ... foreach my $Key ( keys %holder ) { *{$glob} = $holder{$Key} ;} }
>>>>>>>>>> BEFORE RM: SUB FOO OK! ... Undefined subroutine &main::FOO called at tmp.pl line 17. CODE: SCALAR: 123
www.com | www.net | www.org
No recent polls found