| @@ -122,12 +122,12 @@ sub ocr_file { | |||
| my($file) = @_; | |||
| my $txt = ''; | |||
| open(OCR,"tesseract -l eng+deu+fra+ita %s - |", $file)); | |||
| open(OCR,sprintf("tesseract -l eng+deu+fra+ita %s - |", $file)); | |||
| while(<OCR>) { | |||
| $txt .= $_; | |||
| } | |||
| close(OCR); | |||
| return $txt; | |||
| } | |||
| sub create_page_words { | |||