Changeset 30589

Timestamp:

Feb 11, 2011, 6:20:36 PM (15 years ago)

Author:

bills

Message:

fix bug in argument list to check_states_warp()

Location:

tags/ipp-20101215/pstamp/scripts

Files:

• . (modified) (1 prop)
• pstamp_checkdependent.pl (modified) (5 diffs)
• pstamp_job_run.pl (modified) (1 prop)

tags/ipp-20101215/pstamp/scripts/pstamp_checkdependent.pl

@@ -153 +153 @@
 
         # assume the fault is transient.
+        # fault the dependent to give the fault a chance to correct itself
         my_die("Component faulted on update dep_id: $dep_id", $PS_EXIT_SYS_ERROR);
     }
@@ -410 +411 @@
 
         if ($warp->{data_state} ne 'full') {
-            my $warp_status = check_states_warp($warp, 0, $rlabel, $need_magic);
+            my $warp_status = check_states_warp($warp, $rlabel, $need_magic);
             if ($warp_status eq $PSTAMP_GONE) {
                 faultComponent('diff', $diff_id, $skycell_id, $PSTAMP_GONE);
@@ -426 +427 @@
         if ($warp1->{data_state} ne 'full') {
             $warps_ready = 0;
-            $warp_status = check_states_warp($warp1, 0, $rlabel, $need_magic);
+            $warp_status = check_states_warp($warp1, $rlabel, $need_magic);
             if ($warp_status) {
                 if ($warp_status eq $PSTAMP_GONE) {
@@ -440 +441 @@
         if ($warp2->{data_state} ne 'full') {
             $warps_ready = 0;
-            $warp_status = check_states_warp($warp2, 0, $rlabel, $need_magic);
+            $warp_status = check_states_warp($warp2, $rlabel, $need_magic);
             if ($warp_status eq $PSTAMP_GONE) {
                 faultComponent('diff', $diff_id, $skycell_id, $PSTAMP_GONE);
@@ -493 +494 @@
 
         if ($warp->{data_state} ne 'full') {
-            my $warp_status = check_states_warp($warp, 0, $rlabel, $need_magic);
+            my $warp_status = check_states_warp($warp, $rlabel, $need_magic);
             if ($warp_status eq $PSTAMP_GONE) {
                 faultComponent('diff', $diff_id, $skycell_id, $PSTAMP_GONE);