… | |
… | |
144 | PUTBACK; count = perl_call_sv ((SV *)cb, G_SCALAR); SPAGAIN; |
144 | PUTBACK; count = perl_call_sv ((SV *)cb, G_SCALAR); SPAGAIN; |
145 | |
145 | |
146 | if (count != 1) |
146 | if (count != 1) |
147 | croak ("fnamefilter perl callback returned more than one argument"); |
147 | croak ("fnamefilter perl callback returned more than one argument"); |
148 | |
148 | |
149 | FP_free(str); str = FP_strdup (POPp); |
149 | _FP_free(str); str = _FP_strdup (POPp); |
150 | |
150 | |
151 | PUTBACK; FREETMPS; LEAVE; |
151 | PUTBACK; FREETMPS; LEAVE; |
152 | |
152 | |
153 | return str; |
153 | return str; |
154 | } |
154 | } |
… | |
… | |
499 | uulist *li |
499 | uulist *li |
500 | char * newfilename |
500 | char * newfilename |
501 | CODE: |
501 | CODE: |
502 | if (newfilename) |
502 | if (newfilename) |
503 | { |
503 | { |
504 | FP_free (li->filename); |
504 | _FP_free (li->filename); |
505 | li->filename = FP_strdup (newfilename); |
505 | li->filename = _FP_strdup (newfilename); |
506 | } |
506 | } |
507 | RETVAL = li->filename; |
507 | RETVAL = li->filename; |
508 | OUTPUT: |
508 | OUTPUT: |
509 | RETVAL |
509 | RETVAL |
510 | |
510 | |