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_config.c
Date Thu, 17 Sep 1998 15:39:53 GMT
dougm       98/09/17 08:39:52

  Modified:    .        Changes ToDo
               src/modules/perl perl_config.c
  Log:
  </Perl> match is now case insensitive, thanks to Randal Schwartz for
  the spot
  
  Revision  Changes    Path
  1.136     +3 -0      modperl/Changes
  
  Index: Changes
  ===================================================================
  RCS file: /export/home/cvs/modperl/Changes,v
  retrieving revision 1.135
  retrieving revision 1.136
  diff -u -r1.135 -r1.136
  --- Changes	1998/09/17 15:23:16	1.135
  +++ Changes	1998/09/17 15:39:50	1.136
  @@ -8,6 +8,9 @@
   
   =item 1.15_01-dev
   
  +</Perl> match is now case insensitive, thanks to Randal Schwartz for
  +the spot 
  +
   added Apache::Util::string_size function
   
   PerlDirectiveHandlers changes:
  
  
  
  1.80      +0 -2      modperl/ToDo
  
  Index: ToDo
  ===================================================================
  RCS file: /export/home/cvs/modperl/ToDo,v
  retrieving revision 1.79
  retrieving revision 1.80
  diff -u -r1.79 -r1.80
  --- ToDo	1998/09/17 15:23:16	1.79
  +++ ToDo	1998/09/17 15:39:50	1.80
  @@ -5,8 +5,6 @@
   
   - Apache::URI methods should check SvOK
   
  -- </Perl> should be case-insensitive
  -
   - <Perl> should report failed config
   
   - PERL_TIE_TABLES -> PERL_TABLE_API
  
  
  
  1.33      +1 -2      modperl/src/modules/perl/perl_config.c
  
  Index: perl_config.c
  ===================================================================
  RCS file: /export/home/cvs/modperl/src/modules/perl/perl_config.c,v
  retrieving revision 1.32
  retrieving revision 1.33
  diff -u -r1.32 -r1.33
  --- perl_config.c	1998/09/16 00:05:16	1.32
  +++ perl_config.c	1998/09/17 15:39:51	1.33
  @@ -692,7 +692,6 @@
   static SV *perl_perl_create_dir_config(SV **sv, HV *class, cmd_parms *parms)
   {
       GV *gv;
  -    int i;
   
       if(*sv && SvTRUE(*sv) && SvROK(*sv) && sv_isobject(*sv))
   	return *sv;
  @@ -848,7 +847,7 @@
       }
   
       while (!(cfg_getline (l, MAX_STRING_LEN, cmd_infile))) {
  -	if(instr(l, "</Perl>"))
  +	if(strncasecmp(l, "</Perl>", 7) == 0)
   	    break;
   	if(PERL_RUNNING()) {
   	    sv_catpv(sv, l);
  
  
  

Mime
View raw message