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