IPP Software Navigation Tools IPP Links Communication Pan-STARRS Links

Ignore:
Timestamp:
Dec 13, 2006, 3:34:19 PM (20 years ago)
Author:
jhoblitt
Message:

preserve exit status in END block

Location:
trunk/ippScripts/scripts
Files:
12 edited

Legend:

Unmodified
Added
Removed

  • trunk/ippScripts/scripts/detrend_norm_apply.pl

    r10534 r10700  
    123123}
    124124
    125 END { system("sync") == 0 or die "failed to execute sync: $!" }
     125END {
     126    my $status = $?;
     127    system("sync") == 0
     128        or die "failed to execute sync: $!" ;
     129    $? = $status;
     130}

  • trunk/ippScripts/scripts/detrend_norm_calc.pl

    r10297 r10700  
    158158}
    159159
    160 END { system("sync") == 0 or die "failed to execute sync: $!" }
     160END {
     161    my $status = $?;
     162    system("sync") == 0
     163        or die "failed to execute sync: $!" ;
     164    $? = $status;
     165}

  • trunk/ippScripts/scripts/detrend_norm_exp.pl

    r10534 r10700  
    147147}
    148148
    149 END { system("sync") == 0 or die "failed to execute sync: $!" }
     149END {
     150    my $status = $?;
     151    system("sync") == 0
     152        or die "failed to execute sync: $!" ;
     153    $? = $status;
     154}
    150155
    151156__END__

  • trunk/ippScripts/scripts/detrend_process_exp.pl

    r10534 r10700  
    147147}
    148148
    149 END { system("sync") == 0 or die "failed to execute sync: $!" }
     149END {
     150    my $status = $?;
     151    system("sync") == 0
     152        or die "failed to execute sync: $!" ;
     153    $? = $status;
     154}
    150155
    151156__END__

  • trunk/ippScripts/scripts/detrend_process_imfile.pl

    r10534 r10700  
    128128}
    129129
    130 END { system("sync") == 0 or die "failed to execute sync: $!" }
     130END {
     131    my $status = $?;
     132    system("sync") == 0
     133        or die "failed to execute sync: $!" ;
     134    $? = $status;
     135}
    131136
    132137__END__

  • trunk/ippScripts/scripts/detrend_reject_exp.pl

    r10537 r10700  
    215215}
    216216
    217 END { system("sync") == 0 or die "failed to execute sync: $!" }
     217END {
     218    my $status = $?;
     219    system("sync") == 0
     220        or die "failed to execute sync: $!" ;
     221    $? = $status;
     222}
    218223
    219224# Retrieve the requested rejection limit, dying if not extant

  • trunk/ippScripts/scripts/detrend_reject_imfile.pl

    r10538 r10700  
    247247}
    248248
    249 END { system("sync") == 0 or die "failed to execute sync: $!" }
     249END {
     250    my $status = $?;
     251    system("sync") == 0
     252        or die "failed to execute sync: $!" ;
     253    $? = $status;
     254}
    250255
    251256

  • trunk/ippScripts/scripts/detrend_stack.pl

    r10534 r10700  
    133133}
    134134
    135 END { system("sync") == 0 or die "failed to execute sync: $!" }
     135END {
     136    my $status = $?;
     137    system("sync") == 0
     138        or die "failed to execute sync: $!" ;
     139    $? = $status;
     140}
    136141
    137142__END__

  • trunk/ippScripts/scripts/inject.pl

    r10519 r10700  
    128128}
    129129
     130END {
     131    my $status = $?;
     132    system("sync") == 0
     133        or die "failed to execute sync: $!" ;
     134    $? = $status;
     135}
     136
    130137
    131138__END__

  • trunk/ippScripts/scripts/mdc2list.pl

    r9446 r10700  
    7070}
    7171
    72 END { system("sync") == 0 or die "failed to execute sync: $!" }
     72END {
     73    my $status = $?;
     74    system("sync") == 0
     75        or die "failed to execute sync: $!" ;
     76    $? = $status;
     77}

  • trunk/ippScripts/scripts/phase2.pl

    r10534 r10700  
    112112}
    113113
    114 END { system("sync") == 0 or die "failed to execute sync: $!" }
     114END {
     115    my $status = $?;
     116    system("sync") == 0
     117        or die "failed to execute sync: $!" ;
     118    $? = $status;
     119}
    115120
    116121__END__

  • trunk/ippScripts/scripts/phase3.pl

    r10534 r10700  
    152152}
    153153
    154 END { system("sync") == 0 or die "failed to execute sync: $!" }
     154END {
     155    my $status = $?;
     156    system("sync") == 0
     157        or die "failed to execute sync: $!" ;
     158    $? = $status;
     159}
    155160
    156161__END__
Note: See TracChangeset for help on using the changeset viewer.