Just to follow-up on my previous e-mail, here are my results and a test case.<br><br>I added the "no warnings qw(uninitialized)" jusst before my line 57, but left out the "use warnings qw(uninitialized)" as Jay suggested and it worked like a charm.<br>
<br>In another section of code, I had similar warnings but that code called a few other subroutines. I setup this code to test if the "no use warnings" would carry over to the subroutine:<br><br>dan:/tmp$ cat d30.pl<br>
#!/usr/bin/perl<br>use warnings;<br>sub myfunc {<br> $f1 = 123;<br>}<br>$x = 10;<br>for (1..1) {<br> no warnings;<br> $y = 10;<br> $funcreturn = myfunc();<br>}<br>$z = 10;<br><br>dan:/tmp$ ./d30.pl<br>Name "main::f1" used only once: possible typo at ./d30.pl line 6.<br>
Name "main::z" used only once: possible typo at ./d30.pl line 15.<br>Name "main::x" used only once: possible typo at ./d30.pl line 9.<br>dan@dglaptop:PerlTests$<br><br clear="all">The "no warnings" does not carry out of the current block of code into the subroutine (I got the "main::f1 used only once").<br>
<br>Thanks for the input everyone,<br><br>Dan<br><br>-- <br>"Quis custodiet ipsos custodes?" (Who can watch the watchmen?) -- from the Satires of Juvenal<br>"I do not fear computers, I fear the lack of them." -- Isaac Asimov (Author)<br>
** *** ***** ******* *********** *************<br>