Changeset 15847 for lang/perl/Mvalve

Timestamp:

07/15/08 15:15:16 (5 years ago)

Author:

daisuke

Message:

Fix indentation

Files:

• lang/perl/Mvalve/trunk/lib/Mvalve/Base.pm (modified) (1 diff)

lang/perl/Mvalve/trunk/lib/Mvalve/Base.pm

@@ -83 +83 @@
 
         $done = 1;
-    my $retry = $self->state_get($time_key);
-    my $next  = (time + $interval) * 1000;
 
-    if ( ! $retry || $retry < $next ) {
-        $retry = $next;
-    }
-    $message->header( &Mvalve::Const::RETRY_HEADER, $retry );
+        my $retry = $self->state_get($time_key);
+        my $next  = (time + $interval) * 1000;
 
-    Mvalve::trace( "defer to $table (retry = $retry)" ) if &Mvalve::Const::MVALVE_TRACE;
-    $rv = $self->q_insert( 
-        table => $table,
-        data => {
-            destination => $destination,
-            ready       => $retry,
-            message     => $message->serialize,
+        if ( ! $retry || $retry < $next ) {
+            $retry = $next;
         }
-    );
+        $message->header( &Mvalve::Const::RETRY_HEADER, $retry );
 
-    Mvalve::trace( "q_insert results in $rv" ) if &Mvalve::Const::MVALVE_TRACE;
+        Mvalve::trace( "defer to $table (retry = $retry)" ) if &Mvalve::Const::MVALVE_TRACE;
+        $rv = $self->q_insert( 
+            table => $table,
+            data => {
+                destination => $destination,
+                ready       => $retry,
+                message     => $message->serialize,
+            }
+        );
 
-    if ($rv) {
-        $retry += $interval;
-        $self->state_set($time_key, $retry);
-    }
+        Mvalve::trace( "q_insert results in $rv" ) if &Mvalve::Const::MVALVE_TRACE;
+
+        if ($rv) {
+            $retry += $interval;
+            $self->state_set($time_key, $retry);
+        }
     }