"Fossies" - the Fresh Open Source Software Archive  

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

NetPBM.pm  (gscan2pdf-2.11.1.tar.xz):NetPBM.pm  (gscan2pdf-2.11.2.tar.xz)
skipping to change at line 13 skipping to change at line 13
use strict; use strict;
use warnings; use warnings;
use Readonly; use Readonly;
Readonly my $BINARY_BITMAP => 4; Readonly my $BINARY_BITMAP => 4;
Readonly my $BINARY_GRAYMAP => 5; Readonly my $BINARY_GRAYMAP => 5;
Readonly my $BITS_PER_BYTE => 8; Readonly my $BITS_PER_BYTE => 8;
Readonly my $BITMAP_BYTES_PER_PIXEL => 1 / $BITS_PER_BYTE; Readonly my $BITMAP_BYTES_PER_PIXEL => 1 / $BITS_PER_BYTE;
Readonly my $GRAYMAP_CHANNELS => 1; Readonly my $GRAYMAP_CHANNELS => 1;
Readonly my $PIXMAP_CHANNELS => 3; Readonly my $PIXMAP_CHANNELS => 3;
our $VERSION = '2.11.1'; our $VERSION = '2.11.2';
# Return file size expected by PNM header # Return file size expected by PNM header
sub file_size_from_header { sub file_size_from_header {
my $filename = shift; my $filename = shift;
my ( $magic_value, $width, $height, $bytes_per_channel, $header ) = my ( $magic_value, $width, $height, $bytes_per_channel, $header ) =
read_header($filename); read_header($filename);
if ( not defined $magic_value ) { return 0 } if ( not defined $magic_value ) { return 0 }
my $padded_width = $width; my $padded_width = $width;
if ( $magic_value == $BINARY_BITMAP ) { if ( $magic_value == $BINARY_BITMAP ) {
 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)