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

Timestamp:

Dec 13, 2006, 3:34:19 PM (19 years ago)

Author:

jhoblitt

Message:

preserve exit status in END block

File:

• trunk/ippScripts/scripts/detrend_reject_exp.pl (modified) (1 diff)

trunk/ippScripts/scripts/detrend_reject_exp.pl

@@ -215 +215 @@
 }
 
-END { system("sync") == 0 or die "failed to execute sync: $!" }
+END {
+    my $status = $?;
+    system("sync") == 0
+        or die "failed to execute sync: $!" ;
+    $? = $status;
+}
 
 # Retrieve the requested rejection limit, dying if not extant