"Fossies" - the Fresh Open Source Software Archive  

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

TreeIter.pm  (gscan2pdf-2.11.1.tar.xz):TreeIter.pm  (gscan2pdf-2.11.2.tar.xz)
package Gscan2pdf::Canvas::TreeIter; package Gscan2pdf::Canvas::TreeIter;
use strict; use strict;
use warnings; use warnings;
use Carp; use Carp;
use Readonly; use Readonly;
Readonly my $EMPTY_LIST => -1; Readonly my $EMPTY_LIST => -1;
our $VERSION = '2.11.1'; our $VERSION = '2.11.2';
sub new { sub new {
my ( $class, $bbox ) = @_; my ( $class, $bbox ) = @_;
if ( not defined $bbox or not $bbox->isa('Gscan2pdf::Canvas::Bbox') ) { if ( not defined $bbox or not $bbox->isa('Gscan2pdf::Canvas::Bbox') ) {
croak "$bbox is not a bbox object"; croak "$bbox is not a bbox object";
} }
my $self = { bbox => [$bbox], iter => [] }; my $self = { bbox => [$bbox], iter => [] };
while ( $bbox->{type} ne 'page' ) { while ( $bbox->{type} ne 'page' ) {
my $parent = $bbox->get_property('parent'); my $parent = $bbox->get_property('parent');
unshift @{ $self->{iter} }, $parent->get_child_ordinal($bbox); unshift @{ $self->{iter} }, $parent->get_child_ordinal($bbox);
 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)