| … | |
… | |
| 82 | if (strEQ(name, "QP_ENCODED")) return QP_ENCODED; |
82 | if (strEQ(name, "QP_ENCODED")) return QP_ENCODED; |
| 83 | case 'U': |
83 | case 'U': |
| 84 | if (strEQ(name, "UU_ENCODED")) return UU_ENCODED; |
84 | if (strEQ(name, "UU_ENCODED")) return UU_ENCODED; |
| 85 | case 'X': |
85 | case 'X': |
| 86 | if (strEQ(name, "XX_ENCODED")) return XX_ENCODED; |
86 | if (strEQ(name, "XX_ENCODED")) return XX_ENCODED; |
|
|
87 | case 'Y': |
|
|
88 | if (strEQ(name, "YENC_ENCODED")) return YENC_ENCODED; |
| 87 | } |
89 | } |
| 88 | errno = EINVAL; |
90 | errno = EINVAL; |
| 89 | return 0; |
91 | return 0; |
| 90 | } |
92 | } |
| 91 | |
93 | |
| … | |
… | |
| 142 | PUTBACK; count = perl_call_sv ((SV *)cb, G_SCALAR); SPAGAIN; |
144 | PUTBACK; count = perl_call_sv ((SV *)cb, G_SCALAR); SPAGAIN; |
| 143 | |
145 | |
| 144 | if (count != 1) |
146 | if (count != 1) |
| 145 | croak ("fnamefilter perl callback returned more than one argument"); |
147 | croak ("fnamefilter perl callback returned more than one argument"); |
| 146 | |
148 | |
| 147 | FP_free(str); str = FP_strdup (POPp); |
149 | _FP_free(str); str = _FP_strdup (POPp); |
| 148 | |
150 | |
| 149 | PUTBACK; FREETMPS; LEAVE; |
151 | PUTBACK; FREETMPS; LEAVE; |
| 150 | |
152 | |
| 151 | return str; |
153 | return str; |
| 152 | } |
154 | } |
| … | |
… | |
| 497 | uulist *li |
499 | uulist *li |
| 498 | char * newfilename |
500 | char * newfilename |
| 499 | CODE: |
501 | CODE: |
| 500 | if (newfilename) |
502 | if (newfilename) |
| 501 | { |
503 | { |
| 502 | FP_free (li->filename); |
504 | _FP_free (li->filename); |
| 503 | li->filename = FP_strdup (newfilename); |
505 | li->filename = _FP_strdup (newfilename); |
| 504 | } |
506 | } |
| 505 | RETVAL = li->filename; |
507 | RETVAL = li->filename; |
| 506 | OUTPUT: |
508 | OUTPUT: |
| 507 | RETVAL |
509 | RETVAL |
| 508 | |
510 | |
