Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change

free(): invalid pointer 0x804c690! <<<embed perl in C

by jithoosin (Scribe)
on Dec 16, 2005 at 08:38 UTC ( #517167=perlquestion: print w/replies, xml ) Need Help??

jithoosin has asked for the wisdom of the Perl Monks concerning the following question:

Hi monks,
i am getting an error message like thisfree(): invalid pointer 0x804c690!when i execute a C file which calls a perl program which has "USE DBI" inside it.The C code is given below
#include<stdio.h> #include <EXTERN.h> #include <perl.h> static PerlInterpreter *my_perl; /*----------------------------------------------------------- for dynamic loading of perlmodules which inturn uses C libraries -----------------------------------------------------------*/ static void xs_init (pTHX); EXTERN_C void boot_DynaLoader (pTHX_ CV* cv); EXTERN_C void xs_init(pTHX) { char *file = __FILE__; newXS("DynaLoader::boot_DynaLoader", boot_DynaLoader, file); } /*-------------------------------------------------------------*/ void CheckBrowserCompat(char *fileName) { int count; dSP; ENTER; SAVETMPS; PUSHMARK(SP); XPUSHs(sv_2mortal(newSVpv(fileName,0))); PUTBACK; count = call_pv("MAIN", G_ARRAY); SPAGAIN; printf("COUNT : %d\n",count); while(count--!=0) printf("%s",POPp); PUTBACK; FREETMPS; LEAVE; } int main (int argc, char **argv, char **env) { char *my_argv[] = { "", "" }; char fileName[]= "toolbox.html"; my_perl = perl_alloc(); perl_construct( my_perl ); perl_parse(my_perl, xs_init, 2, my_argv, NULL); //perl_run(my_perl); CheckBrowserCompat(fileName); perl_destruct(my_perl); perl_free(my_perl); }
Could any one help me.But the program is working correctly and produces the correct output. But along with output it produces the error message.I need some method to avoid this error. Also i please tell me why "perl_run" is used.

Replies are listed 'Best First'.
A reply falls below the community's threshold of quality. You may see it by logging in.

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: perlquestion [id://517167]
Approved by Corion
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (4)
As of 2023-02-07 18:38 GMT
Find Nodes?
    Voting Booth?
    I prefer not to run the latest version of Perl because:

    Results (40 votes). Check out past polls.