Changeset 13732 for trunk/ippScripts/scripts/detrend_norm_apply.pl

Timestamp:

Jun 8, 2007, 2:33:20 PM (19 years ago)

Author:

eugene

Message:

using carp in my_die

File:

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

trunk/ippScripts/scripts/detrend_norm_apply.pl

@@ -1 +1 @@
 #!/usr/bin/env perl
 
+use Carp;
 use warnings;
 use strict;
@@ -145 +146 @@
     my $exit_code = shift;      # Exit code to add
 
-    warn($msg);
+    carp($msg);
     if ($det_id and $iter and $class_id and not $no_update) {
         my $command = "$dettool -addnormalizedimfile -det_id $det_id -iteration $iter -class_id $class_id -code $exit_code";