Vypísalo to:
Error running process: Died at (eval 37) line 7.
$device->start;
$shash{$sane_thread}{status} = $Sane::STATUS+0;
if ($Sane::STATUS != SANE_STATUS_GOOD) {
print "$prog_name: sane_start: $Sane::STATUS\n" if $debug;
$shash{$sane_thread}{go} = 0;
die; # quickest way out of the eval block
}
my $path = $shash{$sane_thread}{data};
if (not open($fh, ">", $path)) {
$device->cancel;
$shash{$sane_thread}{status} = SANE_STATUS_ACCESS_DENIED;
$shash{$sane_thread}{go} = 0;
die; # quickest way out of the eval block
}
scan_page($device, $fh);
$shash{$sane_thread}{status} = $Sane::STATUS+0;
close $fh;
printf "Scanned page %s.", $path if $debug;
printf " (scanner status = %d)\n", $Sane::STATUS if $debug;
$shash{$sane_thread}{status} = $Sane::STATUS+0;
$shash{$sane_thread}{go} = 0;