Theodore Katseres wrote:<br>&gt;&nbsp; If you just want to turn warnings off the best you could get without<br>&gt; re-coding the block would be to add C&lt;no warnings;&gt; 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 &nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; } else {</span></span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">56 &nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; ($value, $parm)=split(/\s+/,$line,2);</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">&nbsp;&nbsp;
 &nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; no warnings qw(uninitialized);<br>57 &nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; $myhash1{$section_name}{$parm} = $value;</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; use warnings qw(uninitialized);</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">58 &nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; }</span><br style="font-family: courier new,monospace;"><br>When I get back to that project I&#39;ll give it a shot.<br><br>Thanks for the hint Theodore!<br>
<br>Dan<br clear="all"><br>-- <br>&quot;Quis custodiet ipsos custodes?&quot; (Who can watch the watchmen?) -- from the Satires of Juvenal<br>&quot;I do not fear computers, I fear the lack of them.&quot; -- Isaac Asimov (Author)<br>
** *** ***** ******* *********** *************<br>