is a GUI to produce PDFs from scanned documents (using Perl).
| NetPBM.pm (gscan2pdf-2.13.1.tar.xz) | : | NetPBM.pm (gscan2pdf-2.13.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.13.1'; | | our $VERSION = '2.13.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 |
|---|
"Fossies" - the Fresh Open Source Software Archive 