perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@locus.apache.org
Subject cvs commit: modperl/src/modules/perl perl_util.c
Date Wed, 05 Apr 2000 04:05:02 GMT
dougm       00/04/04 21:05:02

  Modified:    .        Changes
               Apache   Apache.pm
               src/modules/perl perl_util.c
  Log:
  Apache::Table is now loaded by default (if enabled), rather than
  autoloading when first needed
  
  Revision  Changes    Path
  1.459     +3 -0      modperl/Changes
  
  Index: Changes
  ===================================================================
  RCS file: /home/cvs/modperl/Changes,v
  retrieving revision 1.458
  retrieving revision 1.459
  diff -u -r1.458 -r1.459
  --- Changes	2000/04/03 05:41:29	1.458
  +++ Changes	2000/04/05 04:04:59	1.459
  @@ -10,6 +10,9 @@
   
   =item 1.22_01-dev
   
  +Apache::Table is now loaded by default (if enabled), rather than
  +autoloading when first needed
  +
   $r->document_root can now be modified
   
   upgrade license to apache software license version 1.1
  
  
  
  1.45      +2 -0      modperl/Apache/Apache.pm
  
  Index: Apache.pm
  ===================================================================
  RCS file: /home/cvs/modperl/Apache/Apache.pm,v
  retrieving revision 1.44
  retrieving revision 1.45
  diff -u -r1.44 -r1.45
  --- Apache.pm	2000/03/31 17:07:23	1.44
  +++ Apache.pm	2000/04/05 04:05:00	1.45
  @@ -7,6 +7,8 @@
   use Apache::Connection ();
   use Apache::Server ();
   
  +eval { require Apache::Table; };
  +
   @Apache::EXPORT_OK = qw(exit warn);
   
   *import = \&Exporter::import;
  
  
  
  1.40      +0 -14     modperl/src/modules/perl/perl_util.c
  
  Index: perl_util.c
  ===================================================================
  RCS file: /home/cvs/modperl/src/modules/perl/perl_util.c,v
  retrieving revision 1.39
  retrieving revision 1.40
  diff -u -r1.39 -r1.40
  --- perl_util.c	2000/04/03 04:48:53	1.39
  +++ perl_util.c	2000/04/05 04:05:01	1.40
  @@ -232,24 +232,10 @@
       return newRV_noinc(insv);
   }
   
  -#ifndef load_module
  -#define load_module(flags, name, ver, imp) \
  -{ \
  -   OP *modname = newSVOP(OP_CONST, 0, name); \
  -   modname->op_private |= OPpCONST_BARE; \
  -   utilize(TRUE, start_subparse(FALSE,0), Nullop, modname, Nullop); \
  -}
  -#endif
  -
   SV *mod_perl_tie_table(table *t)
   {
       HV *hv = newHV();
       SV *sv = sv_newmortal();
  -
  -    /*try to make this quick as possible*/  
  -    if(!hv_exists(GvHV(incgv), "Apache/Table.pm", 15)) {
  -	load_module(0, newSVpv("Apache::Table",0), Nullsv, Nullsv);
  -    }
   
       sv_setref_pv(sv, "Apache::table", (void*)t);
       perl_tie_hash(hv, "Apache::Table", sv);
  
  
  

Mime
View raw message