Changeset 212

Show
Ignore:
Timestamp:
07/30/06 02:10:30 (2 years ago)
Author:
miya
Message:

Revise error handling.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • library/perl/trunk/FFmpeg-Command/lib/FFmpeg/Command.pm

    r209 r212  
    1818    audio_sampling_rate => '-ar', 
    1919    audio_bit_rate      => '-ab', 
     20    frame_rate          => '-r', 
     21    frame_size          => '-s', 
    2022); 
    2123 
     
    7981 
    8082    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($@); 
    8590        return; 
    86     }; 
     91    } 
     92    else { 
     93        finish $h or do { 
     94            $self->error($err); 
     95            return; 
     96        }; 
     97    } 
    8798 
    8899    return 1;