> -----Original Message-----
> From: Rob Dixon [mailto:[EMAIL PROTECTED]
> Sent: Tuesday, November 25, 2008 11:46 AM
> To: Perl Beginners
> Cc: Wagner, David --- Senior Programmer Analyst --- WGO
> Subject: Re: Warning that I am receiving. but not making any sense
>
> 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 ) {
It is the if statement in both cases. I changed the sprintf ,
but the error comes back to the if in both cases.
Thoughts?
Wags ;)
> > $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/
