| … | |
… | |
| 281 | char *propname; |
281 | char *propname; |
| 282 | int i; |
282 | int i; |
| 283 | va_start (args, type); |
283 | va_start (args, type); |
| 284 | propname = va_arg (args, char *); |
284 | propname = va_arg (args, char *); |
| 285 | //printf ("Property name: %s\n", propname); |
285 | //printf ("Property name: %s\n", propname); |
| 286 | |
286 | |
| 287 | if (!strcmp (propname, "command?")) |
287 | if (!strcmp (propname, "command?")) |
| 288 | { |
288 | { |
|
|
289 | if (!perl) |
|
|
290 | return NULL; |
|
|
291 | |
| 289 | const char *cmdname = va_arg (args, const char *); |
292 | const char *cmdname = va_arg (args, const char *); |
| 290 | HV *hv = get_hv ("cf::COMMAND", 1); |
293 | HV *hv = get_hv ("cf::COMMAND", 1); |
| 291 | SV **svp = hv_fetch (hv, cmdname, strlen (cmdname) + 1, 0); |
294 | SV **svp = hv_fetch (hv, cmdname, strlen (cmdname) + 1, 0); |
| 292 | |
295 | |
| 293 | va_end (args); |
296 | va_end (args); |
