--- libimage-info-perl-1.28.orig/debian/changelog +++ libimage-info-perl-1.28/debian/changelog @@ -0,0 +1,131 @@ +libimage-info-perl (1.28-1.1) unstable; urgency=medium + + * Non-maintainer upload. + * Fix "FTBFS with perl 5.22 in experimental (MakeMaker changes)": + use DESTDIR in debian/rules. + (Closes: #793534) + + -- gregor herrmann Fri, 28 Aug 2015 03:55:16 +0200 + +libimage-info-perl (1.28-1) unstable; urgency=low + + * New upstream release + * Update standards version (no changes) + + -- Don Armstrong Thu, 19 Jun 2008 12:29:03 -0700 + +libimage-info-perl (1.27-2) unstable; urgency=low + + * Handle non-existant /usr/lib/perl5 directory properly (for perl 5.10) + + -- Don Armstrong Wed, 16 Jan 2008 15:12:03 -0800 + +libimage-info-perl (1.27-1) unstable; urgency=low + + * New upstream release + + -- Don Armstrong Tue, 18 Dec 2007 15:43:01 -0800 + +libimage-info-perl (1.26-1) unstable; urgency=low + + * New upstream release + * Indicate that Image::Info is deprecated in favor of + libimage-exiftool-perl + + -- Don Armstrong Wed, 24 Oct 2007 16:36:33 -0700 + +libimage-info-perl (1.25-1) unstable; urgency=low + + * New upstream release + + -- Don Armstrong Sun, 22 Jul 2007 03:41:01 -0700 + +libimage-info-perl (1.24-1) unstable; urgency=low + + * New upstream release + + -- Don Armstrong Mon, 26 Feb 2007 03:14:52 -0800 + +libimage-info-perl (1.23-2) unstable; urgency=low + + * Strip out the DTD in graph.svg as well. (closes: #400096) + + -- Don Armstrong Sat, 25 Nov 2006 01:36:34 -0800 + +libimage-info-perl (1.23-1) unstable; urgency=low + + * New upstream release + * Remove patch targets and obsolete patches + * Strip out the DTD so XML::Simple et al. stop looking for it. + (closes: #395228) + + -- Don Armstrong Sat, 4 Nov 2006 17:18:49 -0800 + +libimage-info-perl (1.22-1) unstable; urgency=low + + * New upstream release + - Fix build issues on amd64 (closes: #379777); thanks to Andreas + Jochens for verifying fix. + + -- Don Armstrong Fri, 28 Jul 2006 21:12:57 -0700 + +libimage-info-perl (1.21-2) unstable; urgency=low + + * Fix some typos in Image::Info pod (closes: #369245) + * Indicate where the documentation of the image_info options is (closes: + #369246) + * Fix EXIF parsing in some TIFFs due to a typo (closes: #378419); thanks + to Steinar H. Gunderson. + + -- Don Armstrong Sat, 22 Jul 2006 02:35:05 -0700 + +libimage-info-perl (1.21-1) unstable; urgency=low + + * New upstream release + * Upgrade standards version to 3.7.2, no changes necessary + + -- Don Armstrong Fri, 26 May 2006 14:11:11 -0700 + +libimage-info-perl (1.17-2) unstable; urgency=low + + * Add suport for the Nikon D70s to Image::TIFF (closes: #351728) + * Update watch file to support the change in maintainer + + -- Don Armstrong Mon, 6 Feb 2006 17:55:58 -0800 + +libimage-info-perl (1.17-1) unstable; urgency=low + + * New upstream release (closes: #351600) + * Upgrade standards version; no changes necessary + + -- Don Armstrong 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 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 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 Thu, 21 Feb 2002 12:02:18 -0500 + +libimage-info-perl (1.09-1) unstable; urgency=low + + * Initial packaging + + -- Michael Alan Dorman Thu, 21 Feb 2002 11:53:56 -0500 --- libimage-info-perl-1.28.orig/debian/compat +++ libimage-info-perl-1.28/debian/compat @@ -0,0 +1 @@ +4 --- libimage-info-perl-1.28.orig/debian/control +++ libimage-info-perl-1.28/debian/control @@ -0,0 +1,29 @@ +Source: libimage-info-perl +Maintainer: Don Armstrong +Priority: optional +Section: perl +Build-Depends: debhelper (>= 4) +Build-Depends-Indep: 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.8.0 + +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 + . + This Perl module is deprecated; consider using Image::ExifTool (in + libimage-exiftool-perl) instead. --- libimage-info-perl-1.28.orig/debian/copyright +++ libimage-info-perl-1.28/debian/copyright @@ -0,0 +1,16 @@ +Authors: Gisle Aas +Webpage: http://search.cpan.org/~gaas/Image-Info-1.16/ +Download: http://search.cpan.org/CPAN/authors/id/G/GA/GAAS/ + +Debianized: Michael Alan Dorman , additions by + Don Armstrong + Current Debian development trees can be found at + http://svn.donarmstrong.com/deb_pkgs/libimage-info-perl + +Copyright: Copyright 1999-2004 Gisle Aas. + Copyright 2006 Tels + + This library is free software; you can redistribute it + and/or modify it under the same terms as Perl itself. + +License: GPL or Artistic. Available at /usr/share/common-licenses/{GPL,Artistic} --- libimage-info-perl-1.28.orig/debian/rules +++ libimage-info-perl-1.28/debian/rules @@ -0,0 +1,60 @@ +#!/usr/bin/make -f + +PERL ?= /usr/bin/perl + +DEST_DIR := $(shell pwd)/debian/libimage-info-perl + +binary: binary-indep binary-arch + +binary-arch: build install + + +binary-indep: binary-indep-stamp +binary-indep-stamp: install + dh_testdir + dh_testroot + dh_installdocs README + dh_installchangelogs CHANGES + dh_fixperms + dh_installdeb + dh_perl + dh_compress + dh_gencontrol + dh_md5sums + dh_builddeb + touch $@ + +build: build-stamp +build-stamp: + dh_testdir + $(PERL) Makefile.PL INSTALLDIRS=vendor + $(MAKE) + $(MAKE) test + touch $@ + +clean: + dh_testdir + dh_testroot + rm -f *-stamp + if [ -e Makefile ]; then \ + $(MAKE) distclean;\ + fi + dh_clean + + +install: install-stamp +install-stamp: build + dh_testdir + dh_testroot + dh_clean -k + dh_installdirs + + $(MAKE) install DESTDIR=$(DEST_DIR) +# Install exifdump and imgdump into the examples directory + install -m755 -d $(DEST_DIR)/usr/share/doc/libimage-info-perl/examples + install -m755 exifdump imgdump $(DEST_DIR)/usr/share/doc/libimage-info-perl/examples + [ ! -d $(DEST_DIR)/usr/lib/perl5 ] || \ + rmdir --ignore-fail-on-non-empty --parents $(DEST_DIR)/usr/lib/perl5 + touch install-stamp + +.PHONY: binary binary-arch binary-indep clean install --- libimage-info-perl-1.28.orig/debian/watch +++ libimage-info-perl-1.28/debian/watch @@ -0,0 +1,3 @@ +# format version number, currently 2; this line is compulsory! +version=2 +http://search.cpan.org/CPAN/authors/id/T/TE/TELS/image/Image-Info-(.+)\.tar\.gz --- libimage-info-perl-1.28.orig/exifdump +++ libimage-info-perl-1.28/exifdump @@ -1,6 +1,6 @@ -#!/usr/bin/perl -w +#!/usr/bin/perl -use lib 'lib'; +use warnings; use strict; use Image::Info qw(image_info); --- libimage-info-perl-1.28.orig/img/graph.svg +++ libimage-info-perl-1.28/img/graph.svg @@ -1,5 +1,4 @@ - - \ No newline at end of file + --- libimage-info-perl-1.28.orig/lib/Image/Info.pm +++ libimage-info-perl-1.28/lib/Image/Info.pm @@ -273,7 +273,7 @@ the file only one hash is returned. In scalar context, only the hash for the first image is returned. -In case of error, and hash containing the "error" key will be +In case of error, a hash containing the "error" key will be returned. The corresponding value will be an appropriate error message. @@ -282,7 +282,9 @@ directly. The image_info() function also take optional key/value style arguments -that can influence what information is returned. +that can influence what information is returned. See +L and other L submodules for the +parameters that they take. =item image_type( \$imgdata ) @@ -317,7 +319,7 @@ =item dim( $info_hash ) -Takes an hash as returned from image_info() and returns the dimensions +Takes a hash as returned from image_info() and returns the dimensions ($width, $height) of the image. In scalar context returns the dimensions as a string. --- libimage-info-perl-1.28.orig/lib/Image/Info/JPEG.pm +++ libimage-info-perl-1.28/lib/Image/Info/JPEG.pm @@ -21,7 +21,7 @@ time, aperture, flash usage, GPS position, etc. The following web page contain description of the fields that can be present: - http://www.ba.wakwak.com/~tsuruzoh/Computer/Digicams/exif-e.html + http://park2.wakwak.com/~tsuruzoh/Computer/Digicams/exif-e.html The C spec can be found at: --- libimage-info-perl-1.28.orig/t/dim.t +++ libimage-info-perl-1.28/t/dim.t @@ -0,0 +1,27 @@ +#!/usr/bin/perl -w + +use Test::More; +use strict; + +# test dim(), html_dim() and image_info() + +BEGIN + { + plan tests => 5; + chdir 't' if -d 't'; + use lib '../lib'; + use_ok ("Image::Info") or die($@); + }; + +use Image::Info qw(image_info dim html_dim); + +my $info = image_info("../img/test.gif"); +my @dim = dim($info); + +is (join(" ", @dim), "200 150", 'dim()'); + +is (dim($info), '200x150', 'dim($info)'); + +is (html_dim($info), 'width="200" height="150"', 'html_dim()'); + +is (html_dim(image_info('README')), '', 'no README in info');