Index: trunk/ippScripts/scripts/camera_exp.pl
===================================================================
--- trunk/ippScripts/scripts/camera_exp.pl	(revision 13820)
+++ trunk/ippScripts/scripts/camera_exp.pl	(revision 13824)
@@ -3,4 +3,5 @@
 use warnings;
 use strict;
+use Carp;
 
 ## report the program and machine
@@ -157,6 +158,7 @@
 
 # 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,5 +189,5 @@
 	
 	if (defined $dvodbReal) {
-	    my $command .= " -D CATDIR $dvodbReal";
+	    $command .= " -D CATDIR $dvodbReal";
 	}
 
@@ -251,5 +253,5 @@
     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";