cvs commit: p5ee/App-Context/lib/App Context.pm

[Stephen Adkins]

cvsuser     03/06/20 10:18:44

  Modified:    App-Context/lib/App Context.pm
  Log:
  debugging
  
  Revision  Changes    Path
  1.11      +6 -3      p5ee/App-Context/lib/App/Context.pm
  
  Index: Context.pm
  ===================================================================
  RCS file: /cvs/public/p5ee/App-Context/lib/App/Context.pm,v
  retrieving revision 1.10
  retrieving revision 1.11
  diff -u -w -r1.10 -r1.11
  --- Context.pm        19 May 2003 17:41:12 -0000      1.10
  +++ Context.pm        20 Jun 2003 17:18:44 -0000      1.11
  @@ -1,6 +1,6 @@
   
   #############################################################################
  -## $Id: Context.pm,v 1.10 2003/05/19 17:41:12 spadkins Exp $
  +## $Id: Context.pm,v 1.11 2003/06/20 17:18:44 spadkins Exp $
   #############################################################################
   
   package App::Context;
  @@ -474,8 +474,11 @@
   
           $service_store = $session->{store}{$type}{$name};
   
  -        $self->dbgprint("Context->service(): new service. conf=$conf 
sconf=$service_conf sstore=$service_store")
  -            if ($App::DEBUG && $self->dbg(6));
  +        if ($App::DEBUG && $self->dbg(6)) {
  +            $self->dbgprint("Context->service(): new service. conf=$conf 
svc=$service sconf=$service_conf sstore=$service_store");
  +            $self->dbgprint("Context->service():              
sconf={",join(",",%$service_conf),"}") if ($service_conf);
  +            $self->dbgprint("Context->service():              
sstore={",join(",",%$service_store),"}") if ($service_store);
  +        }
       
           $new_service = 1;