Wagner, David --- Senior Programmer Analyst --- WGO wrote:
> I get the following printed out on my terminal:
>
> pl517c.pl: Gen Rpt/Email St : 08:38:48
> Attempt to free unreferenced scalar: SV 0x2063c74, Perl interpreter: 0x22424c
> at
> C:\CurrWrka\00COMM~3\pl517c.pl line 1259.
> Attempt to free unreferenced scalar: SV 0x206984c, Perl interpreter: 0x22424c
> at
> C:\CurrWrka\00COMM~3\pl517c.pl line 1309.
>
> The code is:
>
> if ( ! $MyDataSw ) {
> $MyPrtBuf .= sprintf " *** No Ids were found!! ***\n";
> }
>
> The processing completes, but I don't understand what is happening with
> the error. Running with strict and warnings, nothing appears as a warning,
> etc. I am running on xp sp 2, AS 5.8.8 build 824.
>
> The code is exactly the same in both places where the warning comes up.
>
> Thoughts? I searched the net and found a number of references, but
> nothing as mundane as this. I have a large number of scripts and what I am
> doing here is not much different than in others, yet I am getting this
> warning.
>
> If you have any questions and/or problems, please let me know.
> Thanks.
Which line is 1259 and 1309? The if or the assignment?
The error is an internal perl problem, and implies a bug in the XS code of one
of the modules you're using. I can't tell why you got it here that but thre's a
chance that it may help to discard the call to sprintf(), which does nothing
useful here. So:
unless ($MyDataSw) {
$MyPrtBuf .= " *** No Ids were found!! ***\n";
}
HTH,
Rob
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
