Changeset 36185 for trunk/ippScripts/scripts/receive_file.pl

Timestamp:

Oct 7, 2013, 9:13:52 AM (13 years ago)

Author:

bills

Message:

Fix a couple of bugs introduced by the changes to support skycal stage

File:

• trunk/ippScripts/scripts/receive_file.pl (modified) (1 diff)

trunk/ippScripts/scripts/receive_file.pl

@@ -239 +239 @@
     }
 
-    if ($stage eq 'sky' or $stage = 'skycal') {
+    if ($stage eq 'sky' or $stage eq 'skycal') {
         # the dbinfo file for staticskyRun and skycalRun only have one component and they don't contain
         # skycell_id which is the way components are listed in the dirinfo file.
         my @ids = keys %$components;
-        &my_die( "unexpected number of components scalar @ids found in staticsky dirinfo file\n", $file_id, $PS_EXIT_UNKNOWN_ERROR) if scalar @ids != 1;
+        my $nComponents = scalar @ids;
+        &my_die( "unexpected number of components $nComponents found in $stage dirinfo file\n", $file_id, $PS_EXIT_UNKNOWN_ERROR) if $nComponents  != 1;
         $current_component = $ids[0];
     }