void-packages/srcpkgs/gscan2pdf/patches/tesseract.patch
2018-03-21 01:07:13 +01:00

63 lines
2.5 KiB
Diff

--- lib/Gscan2pdf/Tesseract.pm.orig
+++ lib/Gscan2pdf/Tesseract.pm
@@ -23,14 +23,14 @@
return $installed if $setup;
( undef, my $exe ) =
- Gscan2pdf::Document::exec_command( [ 'which', 'tesseract' ] );
+ Gscan2pdf::Document::exec_command( [ 'which', 'tesseract-ocr' ] );
return if ( not defined $exe or $exe eq $EMPTY );
$installed = 1;
# if we have 3.02.01 or better,
# we can use --list-langs and not bother with tessdata
( undef, my $out, my $err ) =
- Gscan2pdf::Document::exec_command( [ 'tesseract', '-v' ] );
+ Gscan2pdf::Document::exec_command( [ 'tesseract-ocr', '-v' ] );
if ( $err =~ /^tesseract[ ]([\d.]+)/xsm ) {
$version = $1;
}
@@ -44,7 +44,7 @@
}
( $out, $err ) =
- Gscan2pdf::Document::exec_command( ["tesseract '' '' -l ''"] );
+ Gscan2pdf::Document::exec_command( ["tesseract-ocr '' '' -l ''"] );
( $tessdata, $version, $datasuffix ) = parse_tessdata( $out . $err );
if ( not defined $tessdata ) {
@@ -162,7 +162,7 @@
if ( version->parse("v$version") > version->parse('v3.02') ) {
my ( undef, $out, $err ) =
Gscan2pdf::Document::exec_command(
- [ 'tesseract', '--list-langs' ] );
+ [ 'tesseract-ocr', '--list-langs' ] );
@codes = split /\n/xsm, $err ? $err : $out;
if ( $codes[0] =~ /^List[ ]of[ ]available[ ]languages/xsm ) {
shift @codes;
@@ -246,21 +246,21 @@
}
if ( version->parse("v$version") >= version->parse('v3.02.02') ) {
$cmd = [
- 'tesseract', $tif, $path . $name, '-l',
+ 'tesseract-ocr', $tif, $path . $name, '-l',
$options{language}, '-c', 'tessedit_create_hocr=1'
];
}
elsif ( version->parse("v$version") >= version->parse('v3') ) {
$cmd =
[
-"echo tessedit_create_hocr 1 > hocr.config;tesseract $tif $path$name -l $options{language} +hocr.config;rm hocr.config"
+"echo tessedit_create_hocr 1 > hocr.config;tesseract-ocr $tif $path$name -l $options{language} +hocr.config;rm hocr.config"
];
}
elsif ( $options{language} ) {
- $cmd = [ 'tesseract', $tif, $path . $name, '-l', $options{language} ];
+ $cmd = [ 'tesseract-ocr', $tif, $path . $name, '-l', $options{language} ];
}
else {
- $cmd = [ 'tesseract', $tif, $path . $name ];
+ $cmd = [ 'tesseract-ocr', $tif, $path . $name ];
}
my ( undef, $out, $err ) =