Changeset 13824 for trunk/ippScripts/scripts/camera_exp.pl

Timestamp:

Jun 13, 2007, 5:21:38 PM (19 years ago)

Author:

eugene

Message:

fixed scope error

File:

• trunk/ippScripts/scripts/camera_exp.pl (modified) (4 diffs)

trunk/ippScripts/scripts/camera_exp.pl

@@ -3 +3 @@
 use warnings;
 use strict;
+use Carp;
 
 ## report the program and machine
@@ -157 +158 @@
 
 # convert supplied DVO database name to UNIX filename
+my $dvodbReal;
 if (defined $dvodb) {
-    my $dvodbReal = $ipprc->convert_filename_absolute( $dvodb );
+    $dvodbReal = $ipprc->convert_filename_absolute( $dvodb );
 }
 
@@ -187 +189 @@
         
         if (defined $dvodbReal) {
-            my $command .= " -D CATDIR $dvodbReal";
+            $command .= " -D CATDIR $dvodbReal";
         }
 
@@ -251 +253 @@
     my $exit_code = shift; # Exit code to add
 
-    warn($msg);
+    carp($msg);
     if ($cam_id and not $no_update) {
         my $command = "$camtool -addprocessedexp -cam_id $cam_id -code $exit_code";