<div dir="ltr">On Wed, Aug 6, 2008 at 8:47 PM, Jay Hannah <span dir="ltr"><<a href="mailto:jay@jays.net">jay@jays.net</a>></span> wrote:<br><div class="gmail_quote"><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<div class="Ih2E3d">
Have you tried this instead?</div></blockquote><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;"><div class="Ih2E3d">sub retrieve_fields {<br>
my ( $file )=@_;<br>
my <b>$fields</b>;<br>
open(FILE, $file)<br>
{<br>
local $/;<br>
eval <FILE>;<br>
}<br>
return <b>$fields</b>;<br>
}</div></blockquote></div><br>I thought of that but I couldn't find an comments regarding the differences caused by changing the hash (%fields) to a straight variable ($fields). I know Perl doesn't do strict casting of variables, but this still looked odd to me.<br>
<br>I'll give it a shot and see - the main program the retrieve_fields() subroutine resides in is used by a number of other collection routines and I don't want to break things too badly when adding my new section. (Sadly we don't have a test harness setup _yet_ so I don't have a baseline to work from...)<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>
</div>