Changeset 15489 for trunk/ippScripts/scripts/detrend_reject_exp.pl

Timestamp:

Nov 7, 2007, 11:40:53 AM (19 years ago)

Author:

jhoblitt

Message:

attempt to prevent endless iterations

File:

• trunk/ippScripts/scripts/detrend_reject_exp.pl (modified) (2 diffs)

trunk/ippScripts/scripts/detrend_reject_exp.pl

@@ -31 +31 @@
                        );
 my $ipprc = PS::IPP::Config->new(); # IPP configuration
+
+my $ITER_LIMIT = 20;
 
 use Getopt::Long qw( GetOptions :config auto_help auto_version gnu_getopt );
@@ -281 +283 @@
 }
 
+# attempt to prevent endless, pathological iterations
+if ($iter >= $ITER_LIMIT) {
+    warn("iteration limit reached -- bailing out");
+    exit($PS_EXIT_PROG_ERROR);
+}
+
 ## add the summary statistics, and request a new iteration if needed
 $command = "$dettool -adddetrunsummary";