Theodore Katseres wrote:<br>> If you just want to turn warnings off the best you could get without<br>> re-coding the block would be to add C<no warnings;> after line 55. <br><br>From this site URL: <a href="http://www.xav.com/perl/lib/Pod/perllexwarn.html">http://www.xav.com/perl/lib/Pod/perllexwarn.html</a><br>
Looks like I need to wrapper line 55 like this:<br><span style="font-family: courier new,monospace;"><br><span style="font-family: courier new,monospace;">55 } else {</span></span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">56 ($value, $parm)=split(/\s+/,$line,2);</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">
no warnings qw(uninitialized);<br>57 $myhash1{$section_name}{$parm} = $value;</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;"> use warnings qw(uninitialized);</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">58 }</span><br style="font-family: courier new,monospace;"><br>When I get back to that project I'll give it a shot.<br><br>Thanks for the hint Theodore!<br>
<br>Dan<br clear="all"><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>