Changeset 24193
- Timestamp:
- May 14, 2009, 5:32:30 PM (17 years ago)
- File:
-
- 1 edited
-
trunk/ippScripts/scripts/ipp_serial_mops.pl (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/ippScripts/scripts/ipp_serial_mops.pl
r24192 r24193 15 15 use PS::IPP::Metadata::List qw( parse_md_list ); 16 16 use PS::IPP::Config qw( caturi ); 17 use Carp qw( carp ); 17 18 18 19 # Look for programs we need … … 137 138 138 139 my $input = $ipprc->filename($sources, $path_base); 139 die "Can't find $input\n"unless $ipprc->file_exists($input);140 (carp "Can't find $input\n" and next) unless $ipprc->file_exists($input); 140 141 $input = $ipprc->file_resolve($input); 141 142 … … 147 148 my $command = "$mops --input $input --extname SkyChip.psf --output $output"; 148 149 my $success = run( command => $command, verbose => $verbose ); 149 die "Couldn't translate $input\n"unless $success;150 (carp "Couldn't translate $input\n" and next) unless $success; 150 151 } 151 152
Note:
See TracChangeset
for help on using the changeset viewer.
