"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "lib/Gscan2pdf/Scanner/Options.pm" between
gscan2pdf-2.11.1.tar.xz and gscan2pdf-2.11.2.tar.xz

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

Options.pm  (gscan2pdf-2.11.1.tar.xz):Options.pm  (gscan2pdf-2.11.2.tar.xz)
skipping to change at line 19 skipping to change at line 19
use Storable qw(dclone); # For cloning the options cache use Storable qw(dclone); # For cloning the options cache
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.11.1'; our $VERSION = '2.11.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

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)