[libimage-info-perl] 04/18: Import Debian patch 1.17-1

[Salvatore Bonaccorso]

This is an automated email from the git hooks/post-receive script.

carnil pushed a commit to branch master
in repository libimage-info-perl.

commit bd071c129a871038c468d1564daff874292e851e
Merge: 4ae8c72 5e6f2c2
Author: Don Armstrong <don at debian.org>
Date:   Mon Feb 6 14:06:03 2006 -0800

    Import Debian patch 1.17-1

 Changes                |  21 +++
 Info.pm.tmpl           |  10 +-
 MANIFEST               |   6 +-
 META.yml               |  10 ++
 Makefile.PL            |  44 +++++-
 README                 |   9 +-
 SIGNATURE              |  65 ++++++++
 TODO                   |   5 +
 debian/changelog       |   7 +
 debian/control         |   2 +-
 lib/Image/Info.pm      | 417 -------------------------------------------------
 lib/Image/Info/JPEG.pm |  18 ++-
 lib/Image/Info/PPM.pm  |  16 +-
 lib/Image/Info/SVG.pm  |   2 +-
 lib/Image/Info/XBM.pm  |   2 +-
 lib/Image/Info/XPM.pm  |   2 +-
 lib/Image/TIFF.pm      |  37 +++--
 t/bmp.t                |  26 ++-
 t/dim.t                |  29 ++--
 t/exif.t               |  26 ++-
 t/png.t                |  26 ++-
 t/pod.t                |  40 +++++
 t/pod_cov.t            |  41 +++++
 t/string.t             |   2 +-
 t/tiny-pgm.t           |  26 ++-
 25 files changed, 390 insertions(+), 499 deletions(-)

diff --cc debian/changelog
index a06c6a4,0000000..3adeb0b
mode 100644,000000..100644
--- a/debian/changelog
+++ b/debian/changelog
@@@ -1,29 -1,0 +1,36 @@@
++libimage-info-perl (1.17-1) unstable; urgency=low
++
++  * New upstream release (closes: #351600)
++  * Upgrade standards version; no changes necessary
++
++ -- Don Armstrong <don at debian.org>  Mon,  6 Feb 2006 14:06:03 -0800
++
 +libimage-info-perl (1.16-2) unstable; urgency=low
 +
 +  * Use Data::Dumper instead of Data::Dump (closes: #284001)
 +  * Fix busted links to exif-e.html (closes: #27837)
 +  * Don't bother to parse information in thumbnails if ilen is 0 (closes: #281967)
 +  
 + -- Don Armstrong <don at debian.org>  Mon,  7 Mar 2005 16:53:19 -0800
 +
 +libimage-info-perl (1.16-1) unstable; urgency=low
 +
 +  * New upstream release (closes: #174846)
 +  * Fix debian/copyright problems (closes: #157596)
 +  * New maintainer adopting this package (closes: #274131)
 +  * Depend on libimage-base-perl [Image::Xbm, Image::Xpm]
 +  * Depend on libxml-simple-perl [Image::Info::Svg]
 +
 + -- Don Armstrong <don at donarmstrong.com>  Wed,  6 Oct 2004 16:07:04 -0700
 +
 +libimage-info-perl (1.09-2) unstable; urgency=low
 +
 +  * Fix problem with build prereqs.
 +
 + -- Michael Alan Dorman <mdorman at debian.org>  Thu, 21 Feb 2002 12:02:18 -0500
 +
 +libimage-info-perl (1.09-1) unstable; urgency=low
 +
 +  * Initial packaging
 +
 + -- Michael Alan Dorman <mdorman at debian.org>  Thu, 21 Feb 2002 11:53:56 -0500
diff --cc debian/control
index 17ff58b,0000000..1362cea
mode 100644,000000..100644
--- a/debian/control
+++ b/debian/control
@@@ -1,26 -1,0 +1,26 @@@
 +Source: libimage-info-perl
 +Maintainer: Don Armstrong <don at debian.org>
 +Priority: optional
 +Section: perl
 +Build-Depends-Indep: debhelper (>= 4), perl (>= 5.6.0-17), libio-string-perl, libimage-base-bundle-perl | libimage-xpm-perl, libimage-base-bundle-perl | libimage-xbm-perl, libxml-simple-perl 
- Standards-Version: 3.6.1
++Standards-Version: 3.6.2
 +
 +Package: libimage-info-perl
 +Architecture: all
 +Priority: optional
 +Section: perl
 +Depends: ${perl:Depends}, libio-string-perl, libimage-base-bundle-perl | libimage-xpm-perl, libimage-base-bundle-perl | libimage-xbm-perl, libxml-simple-perl
 +Description: allows extraction of meta information from image files
 + This Perl extension allows you to extract meta information from
 + various types of image files.  In this release the following file
 + formats are supported:
 + .
 +   JPEG (plain JFIF and Exif)
 +   PNG
 +   GIF
 +   PBM/PGM/PPM
 +   SVG
 +   XBM/XPM
 +   BMP/DIB/RLE
 +   TIFF
 +
diff --cc lib/Image/TIFF.pm
index 52c18a2,70b29f6..ad7bd1a
--- a/lib/Image/TIFF.pm
+++ b/lib/Image/TIFF.pm
@@@ -799,8 -806,8 +806,8 @@@ sub add_field
  	    if ($tag eq 'MakerNote' && exists $makernotes{$self->{Make}.' '.$self->{Model}}) {
                  my ($ifd_off, $tag_prefix, $sub) = @{$makernotes{$self->{Make}.' '.$self->{Model}}};
                  $self->{tag_prefix} = $tag_prefix;
- 	        if ($ifd_off < 0) {
+ 	        if ($ifd_off == -1) {
 -                    # fuji kludge -  http://www.butaman.ne.jp/~tsuruzoh/Computer/Digicams/exif-e.html#APP4
 +                    # fuji kludge -  http://park2.wakwak.com/~tsuruzoh/Computer/Digicams/exif-e.html#APP4
                      my $save_endian = $self->{little_endian};
                      $self->{little_endian} = 1;
                      $ifd_off = $self->unpack("N", substr($val, 8, 4));

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libimage-info-perl.git