David Wagner wrote:
> Rob Dixon wrote:
>> David Wagner wrote:
>>>
>>> if ( ! $MyDataSw ) {
>>>
>>> It is the if statement in both cases. I changed the
>>> sprintf, but the error comes back to the if in both cases.
>>
>> Then either the perl engine is messed up beyond hope, or the
>> scalar variable $MyDataSw is more than a simple scalar 'my' variable.
>>
>> How is $MyDataSw defined? I'm guessing it's tied.
>
> No. It is a simple my $MyDataSw = 0 with the block that it is
> being used in. That is for both cases of the variable and the warning
> message that is coming up.
OK. Then try taking those two conditional blocks out altogether and see if the
error goes away. Then replace one with just
$MyPrtBuf .= " *** No Ids were found!! ***\n";
without the test. And finally just
print $MyDataSw unless $MyDataSw;
and try to find the critical change that makes the code break.
If this approach fails then you must show us more of your code.
Rob
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
