Changeset 212
- Timestamp:
- 07/30/06 02:10:30 (2 years ago)
- Files:
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
library/perl/trunk/FFmpeg-Command/lib/FFmpeg/Command.pm
r209 r212 18 18 audio_sampling_rate => '-ar', 19 19 audio_bit_rate => '-ab', 20 frame_rate => '-r', 21 frame_size => '-s', 20 22 ); 21 23 … … 79 81 80 82 my ( $in, $out, $err ); 81 my $h = start [ $self->ffmpeg, '-y', '-i', $self->input_file, @{ $self->options }, $self->output_file ], \$in, \$out, \$err; 82 83 finish $h or do { 84 $self->error($err); 83 my $h = eval { 84 start [ $self->ffmpeg, '-y', '-i', $self->input_file, @{ $self->options }, $self->output_file ], 85 \$in, \$out, \$err; 86 }; 87 88 if( $@ ){ 89 $self->error($@); 85 90 return; 86 }; 91 } 92 else { 93 finish $h or do { 94 $self->error($err); 95 return; 96 }; 97 } 87 98 88 99 return 1;
