acidrip/crop-fixes.patch

   1 diff -ur acidrip-0.14/AcidRip/acidrip.pm acidrip-0.14-cropfixes/AcidRip/acidrip.pm
   2 --- acidrip-0.14/AcidRip/acidrip.pm     2004-07-25 09:03:09.000000000 -0500
   3 +++ acidrip-0.14-cropfixes/AcidRip/acidrip.pm   2007-02-12 15:05:36.000000000 -0600
   4 @@ -680,7 +680,7 @@
   5      message( "Running " . get_command("cropdetect") );
   6      open( CROP, get_command("cropdetect") . " 2>&1 |" );
   7      while (<CROP>) {
   8 -      if ( $_ =~ /crop area.*\s(crop=\d*:\d*:\d*:\d*)/ ) { $crop{$1}++ }
   9 +      if ( $_ =~ /[cC]rop area.*\s(crop=\d*:\d*:\d*:\d*)/ ) { $crop{$1}++ }
  10        $crop_output .= $_;
  11        gui_check($_);
  12      }
  13 @@ -863,7 +863,7 @@
  14      if ( $::settings->{'mencoder_pid'} = open( MENCODER, "$menc 2>&1 |" ) ) {
  15        $/ = "\r";
  16                         while (<MENCODER>) {
  17 -        if (/^Pos:\s*(\d+).\ds\s+(\d+)f\s+\(\s*(\d+)%\)\s+(\d+fps)\sTrem:\s+(\d+min)\s+(\d+mb).+\[([\d:]+)\]/) {
  18 +        if (/^Pos:\s*(\d+)\.\ds\s+(\d+)f\s+\(\s*(\d+)%\)\s+([\d.]+fps)\sTrem:\s+(\d+min)\s+(\d+mb).+\[([\d:]+)\]/) {
  19            if ( $1 ne $sec )  { $sec  = $1; $::widgets->{'menc_seconds'}->set_text( hhmmss($1) ) }
  20            if ( $4 ne $fps )  { $fps  = $4; $::widgets->{'menc_fps'}->set_text($4) }
  21            if ( $6 ne $size ) { $size = $6; $::widgets->{'menc_filesize'}->set_text($6) }