Changeset 9237 for trunk/ippScripts/scripts/detrend_norm_exp.pl

Timestamp:

Oct 4, 2006, 12:48:16 PM (20 years ago)

Author:

Paul Price

Message:

Fixing typo. addnormexp is now addnormalizedexp.

File:

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

trunk/ippScripts/scripts/detrend_norm_exp.pl

@@ -105 +105 @@
 open my $list2File, '>' . $list2Name;
 foreach my $file (@$files) {
-    print $list1File File::Spec-->rel2abs( $file->{b1_uri}, $ipprc->workdir() ) . "\n";
-    print $list2File File::Spec-->rel2abs( $file->{b2_uri}, $ipprc->workdir() ) . "\n";
+    print $list1File File::Spec->rel2abs( $file->{b1_uri}, $ipprc->workdir() ) . "\n";
+    print $list2File File::Spec->rel2abs( $file->{b2_uri}, $ipprc->workdir() ) . "\n";
     push @means, $file->{bg};
     push @stdevs, $file->{bg_stdev};
@@ -137 +137 @@
 $jpeg2Name = File::Spec->abs2rel( $jpeg2Name, $ipprc->workdir() );
 unless ($no_update) {
-    my $command = "$dettool -addnormexp -det_id $det_id -iteration $iter " .
+    my $command = "$dettool -addnormalizedexp -det_id $det_id -iteration $iter " .
         "-recip " . RECIPE1() . "," . RECIPE2() . " -b1_uri $jpeg1Name -b2_uri $jpeg2Name " .
         "-bg $bg -bg_stdev $bg_stdev -bg_mean_stdev $bg_mean_stdev"; # Command to run
     my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
         run(command => $command, verbose => 1);
-    die "Unable to perform dettool -addnormexp: $error_code\n" if not $success;
+    die "Unable to perform dettool -addnormalizedexp: $error_code\n" if not $success;
 
     unlink $list1Name;