Changeset eb6cedc for perlconfig.c
- Timestamp:
- Jul 17, 2009, 11:52:30 PM (15 years ago)
- Branches:
- master, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9
- Children:
- 96f7b07
- Parents:
- b4ef908
- git-author:
- Nelson Elhage <nelhage@mit.edu> (07/17/09 23:31:14)
- git-committer:
- Nelson Elhage <nelhage@mit.edu> (07/17/09 23:52:30)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
perlconfig.c
ra556caa reb6cedc 429 429 } 430 430 431 void owl_perlconfig_new_command(char *name) 432 { 433 int i, count; 434 SV *rv; 435 dSP; 436 437 ENTER; 438 SAVETMPS; 439 440 PUSHMARK(SP); 441 XPUSHs(sv_2mortal(newSVpv(name, 0))); 442 PUTBACK; 443 444 call_pv("BarnOwl::Hooks::_new_command", G_SCALAR|G_VOID); 445 446 SPAGAIN; 447 448 if(SvTRUE(ERRSV)) { 449 owl_function_error("%s", SvPV_nolen(ERRSV)); 450 } 451 452 FREETMPS; 453 LEAVE; 454 } 455 431 456 char *owl_perlconfig_perlcmd(owl_cmd *cmd, int argc, char **argv) 432 457 {
Note: See TracChangeset
for help on using the changeset viewer.