cvs commit: p5ee/P5EEx/Blue/P5EEx/Blue Context.pm

[spadkins]

cvsuser     02/08/16 09:06:10

  Modified:    P5EEx/Blue/P5EEx/Blue Context.pm
  Log:
  added a debug statement
  
  Revision  Changes    Path
  1.36      +6 -1      p5ee/P5EEx/Blue/P5EEx/Blue/Context.pm
  
  Index: Context.pm
  ===================================================================
  RCS file: /cvs/public/p5ee/P5EEx/Blue/P5EEx/Blue/Context.pm,v
  retrieving revision 1.35
  retrieving revision 1.36
  diff -u -w -r1.35 -r1.36
  --- Context.pm        30 Jul 2002 20:49:26 -0000      1.35
  +++ Context.pm        16 Aug 2002 16:06:10 -0000      1.36
  @@ -1,6 +1,6 @@
   
   #############################################################################
  -## $Id: Context.pm,v 1.35 2002/07/30 20:49:26 spadkins Exp $
  +## $Id: Context.pm,v 1.36 2002/08/16 16:06:10 spadkins Exp $
   #############################################################################
   
   package P5EEx::Blue::Context;
  @@ -230,6 +230,11 @@
                   $self->{debugscope}{$pkg} = 1;
               }
           }
  +    }
  +
  +    if ($P5EEx::Blue::DEBUG && $self->dbg(8)) {
  +        my $file = $self->{config}->{configFile};
  +        $self->dbgprint("Config [$file]: " . $self->{config}->dump());
       }
   
       $self->init(\%args);