Select Code to Download

typedef struct {
...

parse_data pd ;

     pd.line = strdup(s) ;

void
get_line ()
...
       PUSHs (sv_2mortal(newSVpv(pd.line,0))) ;
       free (pd.line) ;
       pd.line = 0 ;

emergency_sbrk(blah)
morecore(blah)
...
Perl_sv_catpvn(blah)
Perl_pp_concat(blah)
Perl_runops_standard(blah)