"Fossies" - the Fresh Open Source Software Archive  

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

Options.pm  (gscan2pdf-2.13.1.tar.xz)	:	Options.pm  (gscan2pdf-2.13.2.tar.xz)
skipping to change at line 18		skipping to change at line 18
use Image::Sane ':all'; # For enums		use Image::Sane ':all'; # For enums
use feature 'switch';		use feature 'switch';
use Readonly;		use Readonly;
Readonly my $MAX_VALUES => 255;		Readonly my $MAX_VALUES => 255;
Readonly my $EMPTY_ARRAY => -1;		Readonly my $EMPTY_ARRAY => -1;
# 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 $units = qr{(pel|bit|mm|dpi|%|us)}xsm;		my $units = qr{(pel|bit|mm|dpi|%|us)}xsm;
my $EMPTY = q{};		my $EMPTY = q{};
my $list = ',...';		my $list = ',...';
my $device;		my $device;
sub new_from_data {		sub new_from_data {
my ( $class, $options ) = @_;		my ( $class, $options ) = @_;
my $self = $class->new();		my $self = $class->new();
if ( not defined $options ) { croak 'Error: no options supplied' }		if ( not defined $options ) { croak 'Error: no options supplied' }
End of changes. 1 change blocks.
1 lines changed or deleted		1 lines changed or added

---