Hello community, here is the log from the commit of package perl-Image-Info for openSUSE:Factory checked in at 2017-04-06 11:01:00 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Image-Info (Old) and /work/SRC/openSUSE:Factory/.perl-Image-Info.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Image-Info" Thu Apr 6 11:01:00 2017 rev:12 rq:482704 version:1.40 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Image-Info/perl-Image-Info.changes 2016-11-04 20:59:47.000000000 +0100 +++ /work/SRC/openSUSE:Factory/.perl-Image-Info.new/perl-Image-Info.changes 2017-04-06 11:01:01.021193134 +0200 @@ -1,0 +2,22 @@ +Wed Mar 22 06:43:40 UTC 2017 - co...@suse.com + +- updated to 1.40 + see /usr/share/doc/packages/perl-Image-Info/CHANGES + + 2017-03-21 Slaven Rezic <sla...@rezic.de> + + Release 1.40 + + Stable release with the change in 1.39_50 + + 2017-03-19 Slaven Rezic <sla...@rezic.de> + + Release 1.39_50 + + Rational values work again (RT #117480) + + Fix warnings while processing PNGs (RT #118495) (by Johan Vromans) + + Pod spelling fixes (by Salvatore Bonaccorso and Slaven Rezic) + +------------------------------------------------------------------- Old: ---- Image-Info-1.39.tar.gz New: ---- Image-Info-1.40.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Image-Info.spec ++++++ --- /var/tmp/diff_new_pack.FUuFor/_old 2017-04-06 11:01:01.749090256 +0200 +++ /var/tmp/diff_new_pack.FUuFor/_new 2017-04-06 11:01:01.753089692 +0200 @@ -1,7 +1,7 @@ # # spec file for package perl-Image-Info # -# Copyright (c) 2016 SUSE LINUX GmbH, Nuernberg, Germany. +# Copyright (c) 2017 SUSE LINUX GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -17,14 +17,14 @@ Name: perl-Image-Info -Version: 1.39 +Version: 1.40 Release: 0 %define cpan_name Image-Info Summary: Extract meta information from image files License: Artistic-1.0 or GPL-1.0+ Group: Development/Libraries/Perl Url: http://search.cpan.org/dist/Image-Info/ -Source0: http://www.cpan.org/authors/id/S/SR/SREZIC/%{cpan_name}-%{version}.tar.gz +Source0: https://cpan.metacpan.org/authors/id/S/SR/SREZIC/%{cpan_name}-%{version}.tar.gz Source1: cpanspec.yml BuildArch: noarch BuildRoot: %{_tmppath}/%{name}-%{version}-build @@ -39,7 +39,7 @@ %{perl_requires} %description -This module provide functions to extract various kinds of meta information +This module provides functions to extract various kinds of meta information from image files. %prep ++++++ Image-Info-1.39.tar.gz -> Image-Info-1.40.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Image-Info-1.39/CHANGES new/Image-Info-1.40/CHANGES --- old/Image-Info-1.39/CHANGES 2016-10-08 10:58:57.000000000 +0200 +++ new/Image-Info-1.40/CHANGES 2017-03-21 20:03:38.000000000 +0100 @@ -1,5 +1,21 @@ Revision history for Image::Info +2017-03-21 Slaven Rezic <sla...@rezic.de> + + Release 1.40 + + Stable release with the change in 1.39_50 + +2017-03-19 Slaven Rezic <sla...@rezic.de> + + Release 1.39_50 + + Rational values work again (RT #117480) + + Fix warnings while processing PNGs (RT #118495) (by Johan Vromans) + + Pod spelling fixes (by Salvatore Bonaccorso and Slaven Rezic) + 2016-10-08 Slaven Rezic <sla...@rezic.de> Release 1.39 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Image-Info-1.39/META.json new/Image-Info-1.40/META.json --- old/Image-Info-1.39/META.json 2016-10-08 11:00:28.000000000 +0200 +++ new/Image-Info-1.40/META.json 2017-03-21 20:04:47.000000000 +0100 @@ -54,5 +54,5 @@ "url" : "git://github.com/eserte/image-info.git" } }, - "version" : "1.39" + "version" : "1.40" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Image-Info-1.39/META.yml new/Image-Info-1.40/META.yml --- old/Image-Info-1.39/META.yml 2016-10-08 11:00:28.000000000 +0200 +++ new/Image-Info-1.40/META.yml 2017-03-21 20:04:47.000000000 +0100 @@ -32,4 +32,4 @@ perl: 5.006 resources: repository: git://github.com/eserte/image-info.git -version: 1.39 +version: 1.40 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Image-Info-1.39/SIGNATURE new/Image-Info-1.40/SIGNATURE --- old/Image-Info-1.39/SIGNATURE 2016-10-08 11:00:31.000000000 +0200 +++ new/Image-Info-1.40/SIGNATURE 2017-03-21 20:04:50.000000000 +0100 @@ -12,19 +12,19 @@ not run its Makefile.PL or Build.PL. -----BEGIN PGP SIGNED MESSAGE----- -Hash: SHA1 +Hash: SHA256 SHA1 c82d6187bf83f92dcd4a4ba9ab8341c3edcc094a .gitignore -SHA1 18df8534822879a76fb2fc3de73c6bbbcf5913c5 CHANGES +SHA1 04f7fd20cb175f0758e39b68b2c5dd2d5c9ae627 CHANGES SHA1 517bff80bcf518746150086148acaf8cfa37a17d CREDITS SHA1 cdfc42491a4cdaa42af14d791cb39e775f719de7 MANIFEST SHA1 7508fd127843a69e30ba4f58f4b4e769f20d49e2 MANIFEST.SKIP -SHA1 a795c4a5e7b98bff04358eb76cf20aad1df594f8 META.json -SHA1 cd7397c601ded669e612431c41d4f2f4551bb66b META.yml +SHA1 dda9f065f9ecdea3906a2067a159c0b74eacaafb META.json +SHA1 a75ffc6dd80c91f4392f61fe83339f1293a6c5c7 META.yml SHA1 fd14642d591e132078fc91a8e54a4a4fed927f46 Makefile.PL SHA1 0184503d850cb0d34d0cfe26bd5af84d4cf97dbc README SHA1 36ea8eabe5ac80acc416411aae77b60e1480de1b TODO -SHA1 dead80ea15a681cb679b5c9dd734ed5a6efd97d7 dev/Info.pm.tmpl +SHA1 aa6df64a66d09be89a4faf4fb3bfe2f3f38666b4 dev/Info.pm.tmpl SHA1 c11e7408bd16d35b2116ee47eaac4f08266be902 dev/build.pl SHA1 38b386e67725abff64ea00abb8e92c46f38e2f59 exifdump SHA1 0e2ed058a8e6b748c639b08064f6782c4f51d643 img/bad-exif-1.jpg @@ -61,22 +61,22 @@ SHA1 5023229b3010b9e9ec663ce10e29bd3cbe5486c8 img/xxe.svg SHA1 684ef627299906409c258ed2a66990a26dd13794 img/ztxt.png SHA1 376cc1bd8424b1123f0073df81ce5433be4df58e imgdump -SHA1 b28345eb7918c00c9e8190b9b5ebabb326a84d91 lib/Bundle/Image/Info/Everything.pm -SHA1 4a2ca6a6407e82ba0de7ccde961771365b5928d8 lib/Bundle/Image/Info/PNG.pm -SHA1 777028fc6271fc140b361904b7ff29053d404144 lib/Bundle/Image/Info/SVG.pm -SHA1 ebdf279c647010c1fa17b0003238debdc3e1f80b lib/Bundle/Image/Info/XBM.pm -SHA1 df3482b8e4a6c7b140ebbb1dc0ab56dc60a8e7e7 lib/Bundle/Image/Info/XPM.pm -SHA1 66bb175e528352f44a1f3cdf72c1689fa1ae9f0b lib/Image/Info.pm +SHA1 9e668ca8d7f8778315883dc8f9cb751cbfcae51e lib/Bundle/Image/Info/Everything.pm +SHA1 222dd2400f89771096842e1a5b4264534aee5935 lib/Bundle/Image/Info/PNG.pm +SHA1 e6fe98aa5a30dbd290668cffa515aebaf14828fa lib/Bundle/Image/Info/SVG.pm +SHA1 fa3a601365ec108901e991a8148b62c2bf3dd62b lib/Bundle/Image/Info/XBM.pm +SHA1 7ae5950ba4474e8099068ca6122e67cadce60842 lib/Bundle/Image/Info/XPM.pm +SHA1 9e06b296127fc0182f8202268bc2719bf2ac0417 lib/Image/Info.pm SHA1 6991a957bacde9d3b873184d90d910d083f5f403 lib/Image/Info/BMP.pm SHA1 0996bffe073126dceb72c04dc5b3002c78c24d56 lib/Image/Info/GIF.pm SHA1 fb628cb66c566ab66a1b7953a1bb29cfde1c79c7 lib/Image/Info/ICO.pm SHA1 cb662c31e3429214bdc9f1e7b65fac2c4198f689 lib/Image/Info/JPEG.pm -SHA1 df4bd657aae33fe5ef9cbad6546674ec2de9d53f lib/Image/Info/PNG.pm +SHA1 b94748d648cc5161e327b78aa5e4ac668120868b lib/Image/Info/PNG.pm SHA1 1b69276ab386d1795469773d6af70ff510c15feb lib/Image/Info/PPM.pm -SHA1 67fcd8cd40c30bf4fb995e232fd51bc261607bd8 lib/Image/Info/SVG.pm +SHA1 badd075bff5f88975bcbff1eb2d4cdf84fe5a2ca lib/Image/Info/SVG.pm SHA1 c8aa83ad22ff1684a40bae3f37fccc358842b1d1 lib/Image/Info/SVG/XMLLibXMLReader.pm SHA1 c1fe64b6ad5faeeab7d690cd44fd0feaf56952ee lib/Image/Info/SVG/XMLSimple.pm -SHA1 7ed4635fb08eaa8099f0b17ab25c62aabc52437f lib/Image/Info/TIFF.pm +SHA1 04be3e8792943ab9b61dcdc89e1f31b70dc60996 lib/Image/Info/TIFF.pm SHA1 ed6fde11752d6450756c815b2dca25f9ad1740d9 lib/Image/Info/WBMP.pm SHA1 5c896ca4cc89715527f4207bae3c1e3c7a26286a lib/Image/Info/XBM.pm SHA1 4a5050fdcef00704e7d1fa2ae8751aa34a866f63 lib/Image/Info/XPM.pm @@ -95,7 +95,7 @@ SHA1 ddac1596c132f80e81355cc048def2733163a9aa t/pod_cov.t SHA1 e70d2cdc9d3e744ff309fba229a656a401bd5ec4 t/string.t SHA1 4d729b6d3f3d747a817657053b03f6deb0ce2de4 t/svg.t -SHA1 4946d0695d7b48a04723b790ba70815ba42ef385 t/tiff.t +SHA1 1e8a42e9b7d911936853446ef907f8f74072d08f t/tiff.t SHA1 76e7e08522799dc0f39896c8925aff1d42b09da4 t/tiff_e.t SHA1 c08bf003a891603d6f5f098425a70680a699e31a t/tiff_segfault.t SHA1 0a5f7c518af4b72fd76fa8def1f51e8691727bdd t/tiny-pgm.t @@ -109,11 +109,11 @@ -----BEGIN PGP SIGNATURE----- Version: GnuPG v1 -iQEcBAEBAgAGBQJX+LWsAAoJEN1GkmBlfE8/pMcH/2mmY3ZFFh6qDY5H/KIMx3Jv -yTxAUGQCyWrkD/Y24RxnYJXf4PiLoh6wrBfbBfHos+AY9vlGOUvXzC171SispnWg -BRxfISxbt3fGGGKUCrFm2qBAtGZxE38JVG9gDduaF3IPyoBauxftfj5FrLp/8o3J -6ejYLnBbpcjhyI6hqa3JCZ2rxVY5/VqVT2rrsHRyitlt9Kryj38PP8VqWsHk28VJ -GHwPRb/Hf/hG5XDGQt5IKGHFlqdsioT+hv6RAqidw554nRJRDF3FsvGz8D6yt5nq -trdOn9AWgE9brQJqeDN3oGFUonRCccgF23YXEgRS/9kK5MQF+vPBWq6KALbqk9c= -=Ng5/ +iQEcBAEBCAAGBQJY0XlQAAoJEN1GkmBlfE8/NnQH/1lw2qbKyuC3CmKvPvQuip9Q +I+MzOb8JLfSGSw7ZnOOa8vAK+YYdmWoRs8X+M8d8NJAJZ77swNqQvBRaC1Rks32H +fgrZYrIWW7arIhijqevNVhqKABLbs+3nHQ2jZs0wFFHnBt0oJ6xZ3tWTwGQ5WaLe +oYH2E3mrAjAJLQIcOf+vLu11lREp1AazSWKd6D/CMnzF6UCR7nefYrgTy/FiVtRs +NYnnLIjU0pHnMnHCl/8noFebYqByC2FO1dqK+Au5sQGarpF1z1ymAU+nUect3Lyj +/myNbXVQobuMbkM+kqHM8L+Jd+83KBLstoW7LkSjG4lf/qJCKb6BpC6+YFY4lMs= +=llPA -----END PGP SIGNATURE----- diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Image-Info-1.39/dev/Info.pm.tmpl new/Image-Info-1.40/dev/Info.pm.tmpl --- old/Image-Info-1.39/dev/Info.pm.tmpl 2016-10-08 10:59:06.000000000 +0200 +++ new/Image-Info-1.40/dev/Info.pm.tmpl 2017-03-21 20:03:08.000000000 +0100 @@ -13,12 +13,12 @@ # modify it under the same terms as Perl v5.8.8 itself. # # Previously maintained by Tels - (c) 2006 - 2008. -# Currently maintained by Slaven Rezic - (c) 2008 - 2016. +# Currently maintained by Slaven Rezic - (c) 2008 - 2017. use strict; use vars qw($VERSION @EXPORT_OK); -$VERSION = '1.39'; +$VERSION = '1.40'; require Exporter; *import = \&Exporter::import; @@ -240,7 +240,7 @@ =head1 DESCRIPTION -This module provide functions to extract various kinds of meta +This module provides functions to extract various kinds of meta information from image files. =head2 EXPORTS @@ -344,7 +344,7 @@ the form of a reference to a hash. The hash keys used are in most cases based on the TIFF element names. All lower case keys are mandatory for all file formats and will always be there unless an -error occured (in which case the "error" key will be present.) Mixed +error occurred (in which case the "error" key will be present.) Mixed case keys will only be present when the corresponding information element is available in the image. @@ -389,7 +389,7 @@ likely to occur. It is similar to the TIFF field "PhotometricInterpretation", but this -name was found to be too long, so we used the PNG inpired term +name was found to be too long, so we used the PNG inspired term instead. =item resolution diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Image-Info-1.39/lib/Bundle/Image/Info/Everything.pm new/Image-Info-1.40/lib/Bundle/Image/Info/Everything.pm --- old/Image-Info-1.39/lib/Bundle/Image/Info/Everything.pm 2015-03-03 08:21:17.000000000 +0100 +++ new/Image-Info-1.40/lib/Bundle/Image/Info/Everything.pm 2017-03-19 21:13:49.000000000 +0100 @@ -4,7 +4,7 @@ use strict; use vars qw($VERSION); -$VERSION = '0.01'; +$VERSION = '0.02'; 1; @@ -20,8 +20,6 @@ perl -MCPAN -e 'install Bundle::Image::Info::Everything' -=end - =head1 CONTENTS Image::Info - the base Image::Info module diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Image-Info-1.39/lib/Bundle/Image/Info/PNG.pm new/Image-Info-1.40/lib/Bundle/Image/Info/PNG.pm --- old/Image-Info-1.39/lib/Bundle/Image/Info/PNG.pm 2015-03-03 08:21:17.000000000 +0100 +++ new/Image-Info-1.40/lib/Bundle/Image/Info/PNG.pm 2017-03-19 21:13:56.000000000 +0100 @@ -4,7 +4,7 @@ use strict; use vars qw($VERSION); -$VERSION = '0.01'; +$VERSION = '0.02'; 1; @@ -20,8 +20,6 @@ perl -MCPAN -e 'install Bundle::Image::Info::PNG' -=end - =head1 CONTENTS Image::Info - the base Image::Info module diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Image-Info-1.39/lib/Bundle/Image/Info/SVG.pm new/Image-Info-1.40/lib/Bundle/Image/Info/SVG.pm --- old/Image-Info-1.39/lib/Bundle/Image/Info/SVG.pm 2015-03-03 08:21:17.000000000 +0100 +++ new/Image-Info-1.40/lib/Bundle/Image/Info/SVG.pm 2017-03-19 21:14:11.000000000 +0100 @@ -4,7 +4,7 @@ use strict; use vars qw($VERSION); -$VERSION = '0.01'; +$VERSION = '0.02'; 1; @@ -20,8 +20,6 @@ perl -MCPAN -e 'install Bundle::Image::Info::SVG' -=end - =head1 CONTENTS Image::Info - the base Image::Info module diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Image-Info-1.39/lib/Bundle/Image/Info/XBM.pm new/Image-Info-1.40/lib/Bundle/Image/Info/XBM.pm --- old/Image-Info-1.39/lib/Bundle/Image/Info/XBM.pm 2015-03-03 08:21:17.000000000 +0100 +++ new/Image-Info-1.40/lib/Bundle/Image/Info/XBM.pm 2017-03-19 21:13:39.000000000 +0100 @@ -4,7 +4,7 @@ use strict; use vars qw($VERSION); -$VERSION = '0.01'; +$VERSION = '0.02'; 1; @@ -20,8 +20,6 @@ perl -MCPAN -e 'install Bundle::Image::Info::XBM' -=end - =head1 CONTENTS Image::Info - the base Image::Info module diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Image-Info-1.39/lib/Bundle/Image/Info/XPM.pm new/Image-Info-1.40/lib/Bundle/Image/Info/XPM.pm --- old/Image-Info-1.39/lib/Bundle/Image/Info/XPM.pm 2015-03-03 08:21:17.000000000 +0100 +++ new/Image-Info-1.40/lib/Bundle/Image/Info/XPM.pm 2017-03-19 21:14:04.000000000 +0100 @@ -4,7 +4,7 @@ use strict; use vars qw($VERSION); -$VERSION = '0.01'; +$VERSION = '0.02'; 1; @@ -20,8 +20,6 @@ perl -MCPAN -e 'install Bundle::Image::Info::XPM' -=end - =head1 CONTENTS Image::Info 1.31 - the base Image::Info module diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Image-Info-1.39/lib/Image/Info/PNG.pm new/Image-Info-1.40/lib/Image/Info/PNG.pm --- old/Image-Info-1.39/lib/Image/Info/PNG.pm 2014-12-19 22:56:15.000000000 +0100 +++ new/Image-Info-1.40/lib/Image/Info/PNG.pm 2017-03-19 21:14:28.000000000 +0100 @@ -20,7 +20,7 @@ use strict; use vars qw/$VERSION/; -$VERSION = 1.01; +$VERSION = 1.02; # Test for Compress::Zlib (for reading zTXt chunks) my $have_zlib = 0; @@ -58,8 +58,8 @@ if (@chunks) { my $last = $chunks[-1]; - $last =~ s/\s(\d+)$//; - my $count = $1 || 1; + my $count = 1; + $count = $1 if $last =~ s/\s(\d+)$//; if ($last eq $type) { $count++; $chunks[-1] = "$type $count"; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Image-Info-1.39/lib/Image/Info/SVG.pm new/Image-Info-1.40/lib/Image/Info/SVG.pm --- old/Image-Info-1.39/lib/Image/Info/SVG.pm 2016-10-01 17:27:34.000000000 +0200 +++ new/Image-Info-1.40/lib/Image/Info/SVG.pm 2017-03-19 21:14:45.000000000 +0100 @@ -3,7 +3,7 @@ # # Author: Slaven Rezic # -# Copyright (C) 2009,2011,2016 Slaven Rezic. All rights reserved. +# Copyright (C) 2009,2011,2016,2017 Slaven Rezic. All rights reserved. # This package is free software; you can redistribute it and/or # modify it under the same terms as Perl itself. # @@ -12,7 +12,7 @@ use strict; use vars qw($VERSION @PREFER_MODULE $USING_MODULE); -$VERSION = '2.03'; +$VERSION = '2.04'; @PREFER_MODULE = qw(Image::Info::SVG::XMLLibXMLReader Image::Info::SVG::XMLSimple @@ -156,7 +156,7 @@ MAGIC: /^(<\?xml|[\012\015\t ]*<svg\b)/ -Provides a plethora of attributes and metadata of an SVG vector grafic. +Provides a plethora of attributes and metadata of an SVG vector graphic. =end register diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Image-Info-1.39/lib/Image/Info/TIFF.pm new/Image-Info-1.40/lib/Image/Info/TIFF.pm --- old/Image-Info-1.39/lib/Image/Info/TIFF.pm 2014-12-29 23:19:11.000000000 +0100 +++ new/Image-Info-1.40/lib/Image/Info/TIFF.pm 2017-03-19 21:14:51.000000000 +0100 @@ -1,6 +1,6 @@ package Image::Info::TIFF; -$VERSION = 0.04; +$VERSION = 0.05; use strict; use Config; @@ -161,9 +161,11 @@ @$val = _readbytes($fh, $value_offset, $count - 1); } elsif ($fieldtype == 5) { ## Unsigned Rational + $val = []; _readrational($fh,$value_offset,$byteorder,$count,$val,0); } elsif ($fieldtype == 10) { ## Signed Rational + $val = []; _readrational($fh,$value_offset,$byteorder,$count,$val,1); } else { ## Just read $count thingies from the offset diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Image-Info-1.39/lib/Image/Info.pm new/Image-Info-1.40/lib/Image/Info.pm --- old/Image-Info-1.39/lib/Image/Info.pm 2016-10-08 11:00:08.000000000 +0200 +++ new/Image-Info-1.40/lib/Image/Info.pm 2017-03-21 20:03:49.000000000 +0100 @@ -13,12 +13,12 @@ # modify it under the same terms as Perl v5.8.8 itself. # # Previously maintained by Tels - (c) 2006 - 2008. -# Currently maintained by Slaven Rezic - (c) 2008 - 2016. +# Currently maintained by Slaven Rezic - (c) 2008 - 2017. use strict; use vars qw($VERSION @EXPORT_OK); -$VERSION = '1.39'; +$VERSION = '1.40'; require Exporter; *import = \&Exporter::import; @@ -255,7 +255,7 @@ =head1 DESCRIPTION -This module provide functions to extract various kinds of meta +This module provides functions to extract various kinds of meta information from image files. =head2 EXPORTS @@ -359,7 +359,7 @@ the form of a reference to a hash. The hash keys used are in most cases based on the TIFF element names. All lower case keys are mandatory for all file formats and will always be there unless an -error occured (in which case the "error" key will be present.) Mixed +error occurred (in which case the "error" key will be present.) Mixed case keys will only be present when the corresponding information element is available in the image. @@ -404,7 +404,7 @@ likely to occur. It is similar to the TIFF field "PhotometricInterpretation", but this -name was found to be too long, so we used the PNG inpired term +name was found to be too long, so we used the PNG inspired term instead. =item resolution @@ -516,7 +516,7 @@ =item SVG -Provides a plethora of attributes and metadata of an SVG vector grafic. +Provides a plethora of attributes and metadata of an SVG vector graphic. =item TIFF diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Image-Info-1.39/t/tiff.t new/Image-Info-1.40/t/tiff.t --- old/Image-Info-1.39/t/tiff.t 2009-09-15 19:59:46.000000000 +0200 +++ new/Image-Info-1.40/t/tiff.t 2016-11-04 08:20:52.000000000 +0100 @@ -8,7 +8,7 @@ chdir 't' if -d 't'; use lib '../blib/'; use lib '../lib/'; - plan tests => 15; + plan tests => 19; } use Image::Info qw(image_info dim); @@ -41,6 +41,14 @@ } } +{ + my($xres,$yres) = ($i[0]->{XResolution}, $i[0]->{YResolution}); + isa_ok $xres, 'Image::TIFF::Rational'; + isa_ok $yres, 'Image::TIFF::Rational'; + is "$xres", "1207959552/16777216", 'XResolution, stringified'; + is "$yres", "1207959552/16777216", 'YResolution, stringified'; +} + ## Second image is ( $i[1]->{BitsPerSample}, 1, 'BitsPerSample right for 1-bit image' ); is ( $i[1]->{SamplesPerPixel}, 1, 'BitsPerSample right for 1-bit image' );
