On Wed, Oct 15, 2003 at 10:49:08AM +0100, Ian Cass wrote:
> Ian Cass wrote:
> > printf("else fakeargv[0] = %s\n", fakeargv[0]);
> > SvSETMAGIC(GvSV(tmpgv));
> > printf("else fakeargv[0] = %s\n", fakeargv[0]);
>
> The topic is erroneous it seems. I've compiled up a new stable perl on my
> Intel Redhat box & I see the same problems.
Ah. That makes more sense (and makes it easier for me to duplicate).
> Commenting out the SvSETMAGIC line above fixes things, although I
> don't know what the consequences are.
The consequence is $0 is no longer magical, i.e. it will be read-only.
Can you help me by testing which branch did the fakeargv[0] acquire
its value? i.e. line 54:
S_procself_val(aTHX_ GvSV(tmpgv), fakeargv[0]);
or line 59:
sv_setpv(GvSV(tmpgv), fakeargv[0]);
and if it's line 59, see if replacing fakeargv[0] with the string
literal "par" cause the same problem?
I'm really grateful for your effort on debugging this. :-)
Thanks,
/Autrijus/
pgp00000.pgp
Description: PGP signature
