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

[spadkins]

cvsuser     02/06/18 14:14:51

  Modified:    P5EEx/Blue/P5EEx/Blue Context.pm
  Log:
  added a debug statement
  
  Revision  Changes    Path
  1.31      +3 -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.30
  retrieving revision 1.31
  diff -u -w -r1.30 -r1.31
  --- Context.pm        7 Jun 2002 21:58:03 -0000       1.30
  +++ Context.pm        18 Jun 2002 21:14:51 -0000      1.31
  @@ -1,6 +1,6 @@
   
   #############################################################################
  -## $Id: Context.pm,v 1.30 2002/06/07 21:58:03 spadkins Exp $
  +## $Id: Context.pm,v 1.31 2002/06/18 21:14:51 spadkins Exp $
   #############################################################################
   
   package P5EEx::Blue::Context;
  @@ -696,6 +696,8 @@
   sub iget {
       my ($self, $var, $default) = @_;
       my $value = $self->{initconfig}{$var};
  +    $self->dbgprint("Context->iget($var) = [$value]")
  +        if ($P5EEx::Blue::DEBUG && $self->dbg(3));
       return (defined $value) ? $value : $default;
   }