Changeset 9492

Timestamp:

Oct 11, 2006, 3:08:29 PM (20 years ago)

Author:

jhoblitt

Message:

propegate exit value in END block

File:

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

trunk/ippScripts/scripts/phase0_imfile.pl

@@ -10 +10 @@
 use PS::IPP::Metadata::Config;
 use PS::IPP::Metadata::Stats;
+use Storabe qw( freeze thaw );
 use Data::Dumper;
 
@@ -124 +125 @@
 # Pau.
 
-END { system("sync") == 0 or die "failed to execute sync: $!" }
+END {
+    my $exit = $?;
+    system("sync") == 0 or die "failed to execute sync: $!";
+    $? = $exit;
+}
 
 __END__