| … | |
… | |
| 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 | |
