SF.net SVN: ledger-smb:[4057] branches/1.3/LedgerSMB.pm

[..hidden..]

Revision: 4057
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=4057&view=rev
Author:   tshvr
Date:     2011-11-24 19:37:41 +0000 (Thu, 24 Nov 2011)
Log Message:
-----------
avoid uninitialized warnings in tests

Modified Paths:
--------------
    branches/1.3/LedgerSMB.pm

Modified: branches/1.3/LedgerSMB.pm
===================================================================
--- branches/1.3/LedgerSMB.pm	2011-11-24 19:23:16 UTC (rev 4056)
+++ branches/1.3/LedgerSMB.pm	2011-11-24 19:37:41 UTC (rev 4057)
@@ -471,8 +471,11 @@
 
 sub is_run_mode {
     my $self = shift @_;
-    my $mode = lc shift @_;
+    #avoid 'uninitialized' warnings in tests
+    my $mode = shift @_;
     my $rc   = 0;
+    if(! $mode){return $rc;}
+    $mode=lc $mode;
     if ( $mode eq 'cgi' && $ENV{GATEWAY_INTERFACE} ) {
         $rc = 1;
     }
@@ -891,6 +894,7 @@
 }
 
 sub finalize_request {
+    $logger->debug("throwing CancelFurtherProcessing()");#if trying to follow flow of request
     throw CancelFurtherProcessing();
 }
 

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.