Changeset 27577
- Timestamp:
- Apr 2, 2010, 9:21:05 AM (16 years ago)
- File:
-
- 1 edited
-
trunk/pstamp/scripts/pstamp_job_run.pl (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/pstamp/scripts/pstamp_job_run.pl
r27463 r27577 214 214 215 215 if ($options & ( $PSTAMP_SELECT_CMF | $PSTAMP_SELECT_PSF | $PSTAMP_SELECT_BACKMDL)) { 216 if (0) {217 my $params_file = $output_base . ".mdc";218 open (IN, "<$params_file")219 or my_die("failed to open params file: $params_file", $job_id, $PS_EXIT_UNKNOWN_ERROR);220 221 my $data = $mdcParser->parse(join "", (<IN>))222 or my_die("failed to parse params file: $params_file", $job_id, $PS_EXIT_UNKNOWN_ERROR);223 224 my $components = parse_md_list($data);225 226 my $n = scalar @$components;227 if ($n != 1) {228 my_die("params file $params_file contains unexpected number of components: $n",229 $job_id, $PS_EXIT_PROG_ERROR);230 }231 my $comp = $components->[0];232 }233 216 my $comp = read_params_file($output_base); 234 217 … … 276 259 } 277 260 } 261 278 262 sub read_params_file { 279 263 my $output_base = shift;
Note:
See TracChangeset
for help on using the changeset viewer.
