cvs commit: modperl-2.0/src/modules/perl modperl_const.c

[dougm]

dougm       01/04/11 20:01:40

  Modified:    t/apache constants.t
               src/modules/perl modperl_const.c
  Log:
  allow &name for imports
  
  Revision  Changes    Path
  1.3       +3 -2      modperl-2.0/t/apache/constants.t
  
  Index: constants.t
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/apache/constants.t,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -r1.2 -r1.3
  --- constants.t       2001/04/11 23:02:57     1.2
  +++ constants.t       2001/04/12 03:01:38     1.3
  @@ -4,16 +4,17 @@
   
   use Test;
   
  -use Apache::Const -compile => qw(DECLINED :http :common TAKE23);
  +use Apache::Const -compile => qw(DECLINED :http :common TAKE23 &OPT_EXECCGI);
   use Apache::Const; #defaults to :common
   
  -plan tests => 11;
  +plan tests => 12;
   
   ok AUTH_REQUIRED == 401;
   ok OK == 0;
   ok Apache::OK == 0;
   ok Apache::DECLINED == -1;
   ok Apache::HTTP_GONE == 410;
  +ok Apache::OPT_EXECCGI;
   
   ok ! defined &M_GET;
   Apache::Const->import('M_GET');
  
  
  
  1.6       +3 -0      modperl-2.0/src/modules/perl/modperl_const.c
  
  Index: modperl_const.c
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_const.c,v
  retrieving revision 1.5
  retrieving revision 1.6
  diff -u -r1.5 -r1.6
  --- modperl_const.c   2001/04/12 00:58:00     1.5
  +++ modperl_const.c   2001/04/12 03:01:39     1.6
  @@ -75,6 +75,9 @@
           }
       }
       else {
  +        if (*name == '&') {
  +            name++;
  +        }
           new_constsub(aTHX_ lookup, caller_stash, stash, name);
       }