Changeset 122

Show
Ignore:
Timestamp:
18.12.2006 18:58:22 (2 years ago)
Author:
decoder
Message:

Fixed Deanimate.pm: gifsicle --unoptimize call now correctly done
Fixed Misc.pm to allow file overwriting

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/devel/FuzzyOcr/Deanimate.pm

    r75 r122  
    4848    } 
    4949    my $retcode = save_execute( 
    50         "$conf->{focr_bin_gifsicle} --unoptimize $tfile \'#$index\'", 
     50        "$conf->{focr_bin_gifsicle} -o $tfile2 --unoptimize $tfile #$index", 
    5151        undef, 
    52         ">$tfile2", 
     52        undef, 
    5353        ">>$efile"); 
    5454    return $tfile2 if ($retcode == 0); 

  • trunk/devel/FuzzyOcr/Misc.pm

    r121 r122  
    7272  $fname =~ s/^< *//; 
    7373  $fname =~ s/^>> *// and $flags |= O_CREAT|O_WRONLY|O_APPEND; 
    74   $fname =~ s/^> *//  and $flags |= O_CREAT|O_WRONLY|O_EXCL; 
     74  $fname =~ s/^> *//  and $flags |= O_CREAT|O_WRONLY; 
    7575  POSIX::close($fd_target);  # ignore error, we may have just closed a log 
    7676  my($fd_got) = POSIX::open($fname,$flags,$mode);