Return-Path: <modperl-cvs-owner-modperl-cvs-archive=hyperreal.org@apache.org>
Delivered-To: modperl-cvs-archive@hyperreal.org
Received: (qmail 27461 invoked by uid 6000); 5 Nov 1998 21:20:10 -0000
Received: (qmail 27402 invoked by uid 212); 5 Nov 1998 21:20:08 -0000
Date: 5 Nov 1998 21:20:08 -0000
Message-ID: <19981105212008.27401.qmail@hyperreal.org>
From: ask@hyperreal.org
To: modperl-cvs@hyperreal.org
Subject: cvs commit: modperl/lib/Apache StatINC.pm
Sender: modperl-cvs-owner@apache.org
Precedence: bulk
Reply-To: modperl-cvs@apache.org

ask         98/11/05 13:20:08

  Modified:    lib/Apache StatINC.pm
  Log:
  More undefined stuff.
  Message-ID: <13890.1638.454589.485467@rtfm.ofc.tekinteractive.com>
  
  Revision  Changes    Path
  1.8       +2 -2      modperl/lib/Apache/StatINC.pm
  
  Index: StatINC.pm
  ===================================================================
  RCS file: /home/cvs/modperl/lib/Apache/StatINC.pm,v
  retrieving revision 1.7
  retrieving revision 1.8
  diff -u -r1.7 -r1.8
  --- StatINC.pm	1998/10/06 08:53:42	1.7
  +++ StatINC.pm	1998/11/05 21:20:07	1.8
  @@ -8,8 +8,8 @@
   
   sub handler {
       my $r = shift;
  -    my $do_undef = ref($r) && (lc($r->dir_config("UndefOnReload")) eq "on");
  -    my $DEBUG = ref($r) && (lc($r->dir_config("StatINCDebug")) eq "on");
  +    my $do_undef = ref($r) && (lc($r->dir_config("UndefOnReload") || '') eq "on");
  +    my $DEBUG = ref($r) && (lc($r->dir_config("StatINCDebug") || '') eq "on");
   
       while(my($key,$file) = each %INC) {
   	local $^W = 0;