Changeset 10602

Timestamp:

Dec 9, 2006, 1:52:02 PM (20 years ago)

Author:

Paul Price

Message:

Correcting compilation errors.

File:

• trunk/DataChallenge/inject_essence.pl (modified) (2 diffs)

trunk/DataChallenge/inject_essence.pl

@@ -44 +44 @@
         my ( $success_exp, $error_code_exp, $full_buf_exp, $stdout_buf_exp, $stderr_buf_exp ) =
             run( command => $command_exp, verbose => 1 );
-        die "Unable to inject $exp: $error_code\n" if not $success_exp;
+        die "Unable to inject $exp: $error_code_exp\n" if not $success_exp;
         
         my @line = split(/\s+/, $$stdout_buf_exp[0]); # The output line, containing the exposure tag
@@ -53 +53 @@
         my ( $success_imfile, $error_code_imfile, $full_buf_imfile,
              $stdout_buf_imfile, $stderr_buf_imfile ) = run( command => $command_imfile, verbose => 1 );
-        die "Unable to inject $exp imfile: $error_code\n" if not $success;
+        die "Unable to inject $exp imfile: $error_code_imfile\n" if not $success_imfile;
     }