"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "lib/Gscan2pdf/Scanner/Profile.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).

Profile.pm  (gscan2pdf-2.13.1.tar.xz)	:	Profile.pm  (gscan2pdf-2.13.2.tar.xz)
skipping to change at line 20		skipping to change at line 20
use Storable qw(dclone);		use Storable qw(dclone);
use Data::UUID;		use Data::UUID;
use Readonly;		use Readonly;
Readonly my $EMPTY_ARRAY => -1;		Readonly my $EMPTY_ARRAY => -1;
Readonly my $REVERSE => TRUE;		Readonly my $REVERSE => TRUE;
# Have to subclass Glib::Object to be able to name it as an object in		# Have to subclass Glib::Object to be able to name it as an object in
# Glib::ParamSpec->object in Gscan2pdf::Dialog::Scan		# Glib::ParamSpec->object in Gscan2pdf::Dialog::Scan
use Glib::Object::Subclass Glib::Object::;		use Glib::Object::Subclass Glib::Object::;
our $VERSION = '2.13.1';		our $VERSION = '2.13.2';
my $EMPTY = q{};		my $EMPTY = q{};
my $uuid_object = Data::UUID->new;		my $uuid_object = Data::UUID->new;
sub INIT_INSTANCE {		sub INIT_INSTANCE {
my $self = shift;		my $self = shift;
# add uuid to identify later which callback has finished		# add uuid to identify later which callback has finished
$self->{uuid} = $uuid_object->create_str;		$self->{uuid} = $uuid_object->create_str;
return $self;		return $self;
End of changes. 1 change blocks.
1 lines changed or deleted		1 lines changed or added

---