From a1d9e1a31b99f4da8605b1d005fcb74f8c9b65fe Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Sat, 13 Sep 2014 11:51:08 -0700
Subject: [PATCH] update make_djvu

---
 make_djvu | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/make_djvu b/make_djvu
index 2f153d7..1a470a5 100755
--- a/make_djvu
+++ b/make_djvu
@@ -83,7 +83,7 @@ my @djvu_files;
 for my $tiff (@ARGV) {
     my $base_name = $tiff;
     $base_name =~ s/\.[^\.]+$//;
-    system('cjb2',$base_name,$base_name.'.djvu');
+    system('cjb2',$tiff,$base_name.'.djvu');
     system('tesseract',$tiff,$base_name.'.ocr');
     my $fh = IO::File->new($base_name.'.ocr','r');
     my $wf = IO::File->new($base_name.'.txt','w');
@@ -99,8 +99,8 @@ for my $tiff (@ARGV) {
     print {$wf} ")\n";
     close $wf;
     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');
+    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');
     unlink($base_name.'.txt') if -e $base_name.'.txt';
     push @djvu_files,$base_name.'.djvu';
 }
-- 
2.39.2