[svk-commit] r2413 - branches/svk-logger/lib/SVK

[nobody at bestpractical.com]

Author: clsung
Date: Thu Jun 21 05:05:42 2007
New Revision: 2413

Modified:
   branches/svk-logger/lib/SVK/Command.pm

Log:
- this will pass t/01depotmap.t
- patch says 
  -    unless (ref($@)) {
  -       print $@ if $@;
  +    if ($@ && ref($@)) {
  +        $logger->info("$@");

- and I modify the if statement to 
       if ($@ && !ref($@)) {
- this should match the original semantic


Modified: branches/svk-logger/lib/SVK/Command.pm
==============================================================================
--- branches/svk-logger/lib/SVK/Command.pm	(original)
+++ branches/svk-logger/lib/SVK/Command.pm	Thu Jun 21 05:05:42 2007
@@ -165,7 +165,7 @@
 
     $ofh = select STDERR unless $output;
     $logger->info( $ret) if $ret && $ret !~ /^\d+$/;
-    if ($@ && ref($@)) {
+    if ($@ && !ref($@)) {
         $logger->info("$@");
     }
     $ret = 1 if ($ret ? $ret !~ /^\d+$/ : $@);