Changeset c415aca


Ignore:
Timestamp:
Dec 17, 2008, 3:02:58 PM (12 years ago)
Author:
Nelson Elhage <nelhage@mit.edu>
Branches:
master, debian, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9
Children:
e0096b7
Parents:
f7a61ef
Message:
Stop using deprecated perl_* functions

The perl_* forms of eval_* and get_* are deprecated in favor of the
unprefixed versions (See `perldoc perlapi`).
File:
1 edited

Legend:

Unmodified
Added
Removed
  • perlconfig.c

    rf7a61ef rc415aca  
    291291  owl_global_set_no_have_config(&g);
    292292
    293 
    294293  ret=perl_parse(p, owl_perl_xs_init, 2, args, NULL);
    295294  if (ret || SvTRUE(ERRSV)) {
     
    309308
    310309  /* create legacy variables */
    311   perl_get_sv("BarnOwl::id", TRUE);
    312   perl_get_sv("BarnOwl::class", TRUE);
    313   perl_get_sv("BarnOwl::instance", TRUE);
    314   perl_get_sv("BarnOwl::recipient", TRUE);
    315   perl_get_sv("BarnOwl::sender", TRUE);
    316   perl_get_sv("BarnOwl::realm", TRUE);
    317   perl_get_sv("BarnOwl::opcode", TRUE);
    318   perl_get_sv("BarnOwl::zsig", TRUE);
    319   perl_get_sv("BarnOwl::msg", TRUE);
    320   perl_get_sv("BarnOwl::time", TRUE);
    321   perl_get_sv("BarnOwl::host", TRUE);
    322   perl_get_av("BarnOwl::fields", TRUE);
     310  get_sv("BarnOwl::id", TRUE);
     311  get_sv("BarnOwl::class", TRUE);
     312  get_sv("BarnOwl::instance", TRUE);
     313  get_sv("BarnOwl::recipient", TRUE);
     314  get_sv("BarnOwl::sender", TRUE);
     315  get_sv("BarnOwl::realm", TRUE);
     316  get_sv("BarnOwl::opcode", TRUE);
     317  get_sv("BarnOwl::zsig", TRUE);
     318  get_sv("BarnOwl::msg", TRUE);
     319  get_sv("BarnOwl::time", TRUE);
     320  get_sv("BarnOwl::host", TRUE);
     321  get_av("BarnOwl::fields", TRUE);
    323322
    324323  if(file) {
     
    327326  }
    328327
    329   perl_eval_pv(owl_perlwrap_codebuff, FALSE);
     328  eval_pv(owl_perlwrap_codebuff, FALSE);
    330329
    331330  if (SvTRUE(ERRSV)) {
     
    345344/* returns whether or not a function exists */
    346345int owl_perlconfig_is_function(char *fn) {
    347   if (perl_get_cv(fn, FALSE)) return(1);
     346  if (get_cv(fn, FALSE)) return(1);
    348347  else return(0);
    349348}
     
    359358
    360359  /* execute the subroutine */
    361   response = perl_eval_pv(line, FALSE);
     360  response = eval_pv(line, FALSE);
    362361
    363362  if (SvTRUE(ERRSV)) {
Note: See TracChangeset for help on using the changeset viewer.