- unlink($base_name.'.ocr') if -e $base_name.'.ocr';
- system('dvjused',$base_name.'.djvu','-e','select 1; remove-txt','-s');
- system('dvjused',$base_name.'.djvu','-e','select 1; set-txt '.$base_name.'.txt','-s');
+ unlink($base_name.'.ocr.txt') if -e $base_name.'.ocr.txt';
+ system('djvused',$base_name.'.djvu','-e','select 1; remove-txt','-s');
+ system('djvused',$base_name.'.djvu','-e','select 1; set-txt '.$base_name.'.txt','-s');