comparison: src/perl.c
src/perl.c
- changeset 976
- 553a33f54fe2
- parent 964
- 6642a090394e
- child 980
- dd522f25c5c4
equal
deleted
inserted
replaced
| 975:b1557c114193 | 976:553a33f54fe2 |
|---|---|
| 424 } else if (!strncasecmp(command, "idle", 4)) { | 424 } else if (!strncasecmp(command, "idle", 4)) { |
| 425 /* FIXME | 425 /* FIXME |
| 426 serv_set_idle(atoi(SvPV(ST(1), junk))); | 426 serv_set_idle(atoi(SvPV(ST(1), junk))); |
| 427 */ | 427 */ |
| 428 } else if (!strncasecmp(command, "warn", 4)) { | 428 } else if (!strncasecmp(command, "warn", 4)) { |
| 429 /* yet another perl FIXME | |
| 429 char *name = SvPV(ST(1), junk); | 430 char *name = SvPV(ST(1), junk); |
| 430 serv_warn(name, 0); | 431 serv_warn(name, 0); |
| 432 */ | |
| 431 } | 433 } |
| 432 | 434 |
| 433 XSRETURN(0); | 435 XSRETURN(0); |
| 434 } | 436 } |
| 435 | 437 |
