Changeset 22421

Timestamp:

Feb 23, 2009, 3:20:50 PM (17 years ago)

Author:

Paul Price

Message:

Need to get the program before we call system.

File:

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

trunk/ippScripts/scripts/register_imfile.pl

@@ -27 +27 @@
 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 +67 @@
 
 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) {