Changeset 2787

Timestamp:

Dec 21, 2004, 5:05:14 PM (22 years ago)

Author:

jhoblitt

Message:

fix default logging level

File:

• trunk/Nebulous/lib/Nebulous/Client.pm (modified) (4 diffs)

trunk/Nebulous/lib/Nebulous/Client.pm

@@ -1 +1 @@
 # Copyright (c) 2004  Joshua Hoblitt
 #
-# $Id: Client.pm,v 1.2 2004-12-22 02:53:00 jhoblitt Exp $
+# $Id: Client.pm,v 1.3 2004-12-22 03:05:14 jhoblitt Exp $
 
 package PS::IPP::IData::Client;
@@ -23 +23 @@
 
 my $log = get_logger( "PS::IPP::IData::Client" );
+$log->level( $WARN );
 
 $SOAP::Constants::PATCH_HTTP_KEEPALIVE = 1;
@@ -31 +32 @@
     my $class = shift;
 
-    $log->debug( "entered - args: @_" );
-
         my %args = validate( @_,
         {
             trace => {
                 type        => SCALAR,
-                default     => $ERROR,
+                optional    => 1,
                 callbacks   => {
                     'is valid level' => sub {
@@ -48 +47 @@
 
     $log->level( $LEVELS{ lc $args{ 'trace' } } );
+
+    # this has to be after the log level is set
+    $log->debug( "entered - args: @_" );
 
     return 1;