Correção do script ocr-server

Guilherme Andrade Del Cantoni
1 parent dc7d556b
Showing 1 changed file with 1 additions and 5 deletions Show diff stats
usr/local/bin/ocr
@@ -77,11 +77,7 @@ use Sys::Hostname;
 use IPC::Open3;
 use IO::Select;
  
-use Getopt::Std;
-use vars qw( $opt_d );
-
-#my $DEBUG = 2
-my $DEBUG = ($opt_d ? 2 : 0);
+my $DEBUG = 0;
 my $MAX_PGS = ($DEBUG==2 ? 1 : 0 + `cat /proc/cpuinfo  | grep -e '^processor' | wc -l`);
 my $MAX_FILES = ( !$DEBUG ? 2 : 1) ;
...	...	@@ -77,11 +77,7 @@ use Sys::Hostname;
77	77	use IPC::Open3;
78	78	use IO::Select;
79	79
80		-use Getopt::Std;
81		-use vars qw( $opt_d );
82		-
83		-#my $DEBUG = 2
84		-my $DEBUG = ($opt_d ? 2 : 0);
	80	+my $DEBUG = 0;
85	81	my $MAX_PGS = ($DEBUG==2 ? 1 : 0 + `cat /proc/cpuinfo \| grep -e '^processor' \| wc -l`);
86	82	my $MAX_FILES = ( !$DEBUG ? 2 : 1) ;
87	83
...	...