Index: trunk/ippScripts/scripts/register_imfile.pl
===================================================================
--- trunk/ippScripts/scripts/register_imfile.pl	(revision 22420)
+++ trunk/ippScripts/scripts/register_imfile.pl	(revision 22421)
@@ -27,4 +27,13 @@
 use Getopt::Long qw( GetOptions :config auto_help auto_version gnu_getopt );
 use Pod::Usage qw( pod2usage );
+
+# Look for programs we need
+my $missing_tools;
+my $regtool = `which regtool` or (warn "Can't find regtool" and $missing_tools = 1);
+my $ppStats = `which ppStats` or (warn "Can't find ppStats" and $missing_tools = 1);
+my $ppStatsFromMetadata = `which ppStatsFromMetadata` or (warn "Can't find ppStatsFromMetadata" and $missing_tools = 1);
+chomp $regtool;
+chomp $ppStats;
+chomp $ppStatsFromMetadata;
 
 my ($cache, $exp_id, $tmp_class_id, $tmp_exp_name, $uri, $dbname, $verbose, $no_update, $no_op, $logfile);
@@ -58,14 +67,4 @@
 
 my $RECIPE = "REGISTER"; # Recipe to use for ppStats
-
-# Look for programs we need
-my $missing_tools;
-my $regtool = `which regtool` or (warn "Can't find regtool" and $missing_tools = 1);
-my $ppStats = `which ppStats` or (warn "Can't find ppStats" and $missing_tools = 1);
-my $ppStatsFromMetadata = `which ppStatsFromMetadata` or (warn "Can't find ppStatsFromMetadata" and $missing_tools = 1);
-chomp $regtool;
-chomp $ppStats;
-chomp $ppStatsFromMetadata;
-
 
 if ($missing_tools) {