… | |
… | |
135 | dSP; |
135 | dSP; |
136 | int count; |
136 | int count; |
137 | |
137 | |
138 | ENTER; SAVETMPS; PUSHMARK (SP); EXTEND (SP, 2); |
138 | ENTER; SAVETMPS; PUSHMARK (SP); EXTEND (SP, 2); |
139 | |
139 | |
140 | PUSHs (sv_2mortal(newSVpv(subject, 0))); |
140 | PUSHs (sv_2mortal (newSVpv (subject, 0))); |
141 | PUSHs (filename ? sv_2mortal(newSVpv(filename, 0)) : &PL_sv_undef); |
141 | PUSHs (filename ? sv_2mortal (newSVpv (filename, 0)) : &PL_sv_undef); |
142 | |
142 | |
143 | PUTBACK; count = perl_call_sv ((SV *)cb, G_ARRAY); SPAGAIN; |
143 | PUTBACK; count = perl_call_sv ((SV *)cb, G_ARRAY); SPAGAIN; |
144 | |
144 | |
145 | if (count > 1) |
145 | if (count > 1) |
146 | croak ("filenamecallback perl callback must return nothing or a single filename"); |
146 | croak ("filenamecallback perl callback must return nothing or a single filename"); |