"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "lib/Gscan2pdf/Frontend/Image_Sane.pm" between
gscan2pdf-2.13.1.tar.xz and gscan2pdf-2.13.2.tar.xz

About: gscan2pdf is a GUI to produce PDFs from scanned documents (using Perl).

Image_Sane.pm  (gscan2pdf-2.13.1.tar.xz)	:	Image_Sane.pm  (gscan2pdf-2.13.2.tar.xz)
skipping to change at line 18		skipping to change at line 18
use threads;		use threads;
use threads::shared;		use threads::shared;
use Thread::Queue;		use Thread::Queue;
use Storable qw(freeze thaw); # For cloning the options cache		use Storable qw(freeze thaw); # For cloning the options cache
use Try::Tiny;		use Try::Tiny;
use Data::Dumper;		use Data::Dumper;
$Data::Dumper::Sortkeys = 1;		$Data::Dumper::Sortkeys = 1;
use Glib qw(TRUE FALSE);		use Glib qw(TRUE FALSE);
use Image::Sane ':all';		use Image::Sane ':all';
use Data::UUID;		use Data::UUID;
use File::Temp; # To create temporary files		use File::Temp; # To create temporary files
use Readonly;		use Readonly;
Readonly my $BUFFER_SIZE => ( 32 * 1024 ); # default size		Readonly my $BUFFER_SIZE => ( 32 * 1024 ); # default size
Readonly my $_POLL_INTERVAL => 100; # ms		Readonly my $_POLL_INTERVAL => 100; # ms
Readonly my $_8_BIT => 8;		Readonly my $_8_BIT => 8;
Readonly my $MAXVAL_8_BIT => 2**$_8_BIT - 1;		Readonly my $MAXVAL_8_BIT => 2**$_8_BIT - 1;
Readonly my $_16_BIT => 16;		Readonly my $_16_BIT => 16;
Readonly my $MAXVAL_16_BIT => 2**$_16_BIT - 1;		Readonly my $MAXVAL_16_BIT => 2**$_16_BIT - 1;
Readonly my $LARGE_STATUS => 99;		Readonly my $LARGE_STATUS => 99;
Readonly my $NOT_FOUND => -1;		Readonly my $NOT_FOUND => -1;
my $uuid_object = Data::UUID->new;		my $uuid_object = Data::UUID->new;
my $EMPTY = q{};		my $EMPTY = q{};
our $VERSION = '2.13.1';		our $VERSION = '2.13.2';
my ( $prog_name, $logger, %callback, $_self );		my ( $prog_name, $logger, %callback, $_self );
sub setup {		sub setup {
( my $class, $logger ) = @_;		( my $class, $logger ) = @_;
$_self = {};		$_self = {};
$prog_name = Glib::get_application_name;		$prog_name = Glib::get_application_name;
$_self->{requests} = Thread::Queue->new;		$_self->{requests} = Thread::Queue->new;
$_self->{return} = Thread::Queue->new;		$_self->{return} = Thread::Queue->new;
End of changes. 2 change blocks.
2 lines changed or deleted		2 lines changed or added

---