IPP Software Navigation Tools IPP Links Communication Pan-STARRS Links

Changeset 13732


Ignore:
Timestamp:
Jun 8, 2007, 2:33:20 PM (19 years ago)
Author:
eugene
Message:

using carp in my_die

Location:
trunk/ippScripts/scripts
Files:
8 edited

Legend:

Unmodified
Added
Removed

  • trunk/ippScripts/scripts/detrend_norm_apply.pl

    r13698 r13732  
    11#!/usr/bin/env perl
    22
     3use Carp;
    34use warnings;
    45use strict;
    … …  
    145146    my $exit_code = shift;      # Exit code to add
    146147
    147     warn($msg);
     148    carp($msg);
    148149    if ($det_id and $iter and $class_id and not $no_update) {
    149150        my $command = "$dettool -addnormalizedimfile -det_id $det_id -iteration $iter -class_id $class_id -code $exit_code";

  • trunk/ippScripts/scripts/detrend_norm_calc.pl

    r13698 r13732  
    11#!/usr/bin/env perl
    22
     3use Carp;
    34use warnings;
    45use strict;
    … …  
    200201    my $exit_code = shift;      # Exit code to add
    201202
    202     warn($msg);
     203    carp($msg);
    203204    if ($det_id and $iter and not $no_update) {
    204205        my $command = "$dettool -addnormalizedstat -det_id $det_id -iteration $iter -code $exit_code";

  • trunk/ippScripts/scripts/detrend_norm_exp.pl

    r13698 r13732  
    11#!/usr/bin/env perl
    22
     3use Carp;
    34use warnings;
    45use strict;
    … …  
    198199    my $exit_code = shift; # Exit code to add
    199200
    200     warn($msg);
     201    carp($msg);
    201202    if ($det_id and $iter and not $no_update) {
    202203        my $command = "$dettool -addprocessedimfile -det_id $det_id -iter $iter -code $exit_code";

  • trunk/ippScripts/scripts/detrend_process_exp.pl

    r13698 r13732  
    11#!/usr/bin/env perl
    22
     3use Carp;
    34use warnings;
    45use strict;
    … …  
    208209    my $exit_code = shift; # Exit code to add
    209210
    210     warn($msg);
     211    carp($msg);
    211212    if ($det_id and $exp_tag and not $no_update) {
    212213        my $command = "$dettool -addprocessedexp -det_id $det_id -exp_tag $exp_tag -code $exit_code";

  • trunk/ippScripts/scripts/detrend_process_imfile.pl

    r13699 r13732  
    11#!/usr/bin/env perl
    22
     3use Carp;
    34use warnings;
    45use strict;

  • trunk/ippScripts/scripts/detrend_reject_exp.pl

    r13722 r13732  
    11#!/usr/bin/env perl
    22
     3use Carp;
    34use warnings;
    45use strict;
    … …  
    314315    my $exit_code = shift; # Exit code to add
    315316
    316     warn($msg);
     317    carp($msg);
    317318    if ($det_id and $iter and not $no_update) {
    318319        my $command = "$dettool -adddetrunsummary -det_id $det_id -iteration $iter -code $exit_code";

  • trunk/ippScripts/scripts/detrend_reject_imfile.pl

    r13722 r13732  
    77#    not at the imfile level.
    88
     9use Carp;
    910use warnings;
    1011use strict;
    … …  
    512513    my $exit_code = shift; # Exit code to add
    513514
    514     warn($msg);
     515    carp($msg);
    515516    if ($det_id and $iter and $exp_tag and not $no_update) {
    516517        my $command = "$dettool -addresidexp -det_id $det_id -iteration $iter -exp_tag $exp_tag -code $exit_code";

  • trunk/ippScripts/scripts/detrend_resid.pl

    r13699 r13732  
    11#!/usr/bin/env perl
    22
     3use Carp;
    34use warnings;
    45use strict;
    … …  
    213214    my $exit_code = shift; # Exit code to add
    214215
    215     warn($msg);
     216    carp($msg);
    216217    if ($det_id and $iter and $exp_tag and not $no_update) {
    217218        my $command = "$dettool -addresidimfile -det_id $det_id -iteration $iter -exp_tag $exp_tag -class_id $class_id -code $exit_code";
Note: See TracChangeset for help on using the changeset viewer.