perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@hyperreal.org
Subject cvs commit: modperl/src/modules/perl perl_util.c
Date Fri, 06 Nov 1998 20:18:50 GMT
dougm       98/11/06 12:18:46

  Modified:    .        Changes
               src/modules/perl perl_util.c
  Log:
  don't yank autoload of Apache::Table just yet, just spit out a big WARNING:
  this should annoy folks enough to add 'use Apache::Table ()' without
  breaking their existing code.  we'll yank the autoloading later.
  
  Revision  Changes    Path
  1.187     +2 -1      modperl/Changes
  
  Index: Changes
  ===================================================================
  RCS file: /export/home/cvs/modperl/Changes,v
  retrieving revision 1.186
  retrieving revision 1.187
  diff -u -r1.186 -r1.187
  --- Changes	1998/11/05 04:09:18	1.186
  +++ Changes	1998/11/06 20:18:42	1.187
  @@ -14,7 +14,8 @@
   plugged leak in mod_perl_tie_table()
   
   methods that return an Apache::Table object no longer attempt to
  -'require Apache::Table' for you
  +'require Apache::Table' for you (well, maybe not next release, for now, you
  +get a big: `WARNING: autoloading Apache::Table')
   
   rename PERL_VERSION macro to PERLV to avoid possibl future conflict
   
  
  
  
  1.21      +8 -0      modperl/src/modules/perl/perl_util.c
  
  Index: perl_util.c
  ===================================================================
  RCS file: /export/home/cvs/modperl/src/modules/perl/perl_util.c,v
  retrieving revision 1.20
  retrieving revision 1.21
  diff -u -r1.20 -r1.21
  --- perl_util.c	1998/11/04 02:28:52	1.20
  +++ perl_util.c	1998/11/06 20:18:44	1.21
  @@ -216,6 +216,14 @@
   {
       HV *hv = newHV();
       SV *sv = sv_newmortal();
  +
  +    /*try to make this quick as possible*/  
  +    if(!hv_exists(GvHV(incgv), "Apache/Table.pm", 15)) {
  +	fprintf(stderr, "WARNING: autoloading Apache::Table\n");
  +	utilize(TRUE, start_subparse(FALSE, 0), Nullop, 
  +		newSVOP(OP_CONST, 0, newSVpv("Apache/Table.pm",15)), Nullop);
  +    }
  +
       sv_setref_pv(sv, "Apache::table", (void*)t);
       perl_tie_hash(hv, "Apache::Table", sv);
       return sv_bless(sv_2mortal(newRV_noinc((SV*)hv)), 
  
  
  

Mime
View raw message