perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: modperl-2.0/src/modules/perl modperl_cmd.c
Date Sat, 14 Feb 2004 04:25:01 GMT
stas        2004/02/13 20:25:01

  Modified:    src/modules/perl modperl_cmd.c
  Log:
  provide a cleaner solution for implementing 'local $0'
  
  Revision  Changes    Path
  1.57      +3 -14     modperl-2.0/src/modules/perl/modperl_cmd.c
  
  Index: modperl_cmd.c
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_cmd.c,v
  retrieving revision 1.56
  retrieving revision 1.57
  diff -u -u -r1.56 -r1.57
  --- modperl_cmd.c	12 Feb 2004 22:02:44 -0000	1.56
  +++ modperl_cmd.c	14 Feb 2004 04:25:01 -0000	1.57
  @@ -516,23 +516,12 @@
       }
       
       {
  -        /* Set $0 to the current configuration file */
  -        SV *dollar_zero = get_sv("0", TRUE);
  -        int dollar_zero_tainted = SvTAINTED(dollar_zero);
  -
  -        if (dollar_zero_tainted) {
  -            SvTAINTED_off(dollar_zero); 
  -        }
  -
  +        GV *gv = gv_fetchpv("0", TRUE, SVt_PV);
           ENTER;
  -        save_item(dollar_zero);
  -        sv_setpv(dollar_zero, directive->filename);
  +        save_scalar(gv); /* local $0 */
  +        sv_setpv_mg(GvSV(gv), directive->filename);
           eval_pv(arg, FALSE);
           LEAVE;
  -
  -        if (dollar_zero_tainted) {
  -            SvTAINTED_on(dollar_zero);
  -        }
       }
       
       if (SvTRUE(ERRSV)) {
  
  
  

Mime
View raw message