cvs commit: modperl/src/modules/perl perl_config.c

[dougm]

dougm       00/05/12 17:57:22

  Modified:    src/modules/perl perl_config.c
  Log:
  HvKEYS fix was not the fix
  
  Revision  Changes    Path
  1.96      +2 -2      modperl/src/modules/perl/perl_config.c
  
  Index: perl_config.c
  ===================================================================
  RCS file: /home/cvs/modperl/src/modules/perl/perl_config.c,v
  retrieving revision 1.95
  retrieving revision 1.96
  diff -u -r1.95 -r1.96
  --- perl_config.c     2000/05/04 04:52:34     1.95
  +++ perl_config.c     2000/05/13 00:57:21     1.96
  @@ -1178,7 +1178,7 @@
   #define USE_ICASE 0
   #endif
   
  -#define SECTION_NAME(n) (cmd->info ? (char *)cmd->info : n)
  +#define SECTION_NAME(n) n
   
   #define TRACE_SECTION(n,v) \
       MP_TRACE_s(fprintf(stderr, "perl_section: <%s %s>\n", n, v))
  @@ -1748,7 +1748,7 @@
            }
        }
   
  -     if((hv = GvHV((GV*)val)) && HvKEYS(hv)) {
  +     if((hv = GvHV((GV*)val))) {
            perl_handle_command_hv(hv, key, parms, config);
        }
        else if((av = GvAV((GV*)val))) {