It produced the same results. Failed on the read? of the ascii file.
(gdb) bt
#0 0x805e165 in Perl_gv_fetchfile ()
#1 0x400f2048 in XS_HTML__Embperl_GVFile (cv=0x81eb360) at Embperl.xs:76
#2 0x8097ad3 in Perl_pp_entersub ()
#3 0x8092be6 in Perl_runops_standard ()
#4 0x805b105 in S_run_body ()
#5 0x805aea9 in perl_run ()
#6 0x8058bf1 in main ()
#7 0x8058afe in ___crt_dummy__ ()
This is the block for any one that doesn't want to dig into the source and to
show which lines are which after the modification suggested: (lines according
to pico anyway)
>72 CODE:
>73 RETVAL = "" ;
>74 if (gv && SvTYPE(gv) == SVt_PVGV && GvGP (gv))
>75 {
>76 GV * fgv = GvFILEGV(gv) ;
>77 if (fgv && SvTYPE(fgv) == SVt_PVGV)
>78 {
>79 char * name = GvNAME (fgv) ;
>80 if (name)
>81 RETVAL = name ;
>82 }
>83 }
>84OUTPUT:
Aaron Johnson
Gerald Richter wrote:
> > Here is the output from the debug version. I didn't see a
> > LDDFLAGS but I saw
> > LDDLFLAGS, is that where I add the -g? (I added it there and nothing bad
> > happend :^)
> >
> > Hope this helps.
> >
>
> Yes
>
> Does it change anything, if you change line 75 in Embperl.xs from
>
> if (gv && SvTYPE(gv) == SVt_PVGV)
>
> to
>
> if (gv && SvTYPE(gv) == SVt_PVGV && GvGP (gv))
>
> ?
>
> Gerald
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
