r46189 - in /branches/upstream/libimage-size-perl/current: ./ lib/Image/ t/
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Thu Oct 22 13:15:22 UTC 2009
Author: jawnsy-guest
Date: Thu Oct 22 13:14:13 2009
New Revision: 46189
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=46189
Log:
[svn-upgrade] Integrating new upstream version, libimage-size-perl (3.210)
Added:
branches/upstream/libimage-size-perl/current/README.textile
branches/upstream/libimage-size-perl/current/t/00_load.t
branches/upstream/libimage-size-perl/current/t/01_pod.t
branches/upstream/libimage-size-perl/current/t/02_pod_coverage.t
branches/upstream/libimage-size-perl/current/t/03_meta.t
branches/upstream/libimage-size-perl/current/t/04_minimumversion.t
branches/upstream/libimage-size-perl/current/t/05_critic.t
Removed:
branches/upstream/libimage-size-perl/current/t/00_signature.t
branches/upstream/libimage-size-perl/current/t/pod.t
branches/upstream/libimage-size-perl/current/t/pod_coverage.t
Modified:
branches/upstream/libimage-size-perl/current/ChangeLog
branches/upstream/libimage-size-perl/current/ChangeLog.xml
branches/upstream/libimage-size-perl/current/MANIFEST
branches/upstream/libimage-size-perl/current/META.yml
branches/upstream/libimage-size-perl/current/Makefile.PL
branches/upstream/libimage-size-perl/current/README
branches/upstream/libimage-size-perl/current/SIGNATURE
branches/upstream/libimage-size-perl/current/lib/Image/Size.pm
branches/upstream/libimage-size-perl/current/t/magick.t
Modified: branches/upstream/libimage-size-perl/current/ChangeLog
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libimage-size-perl/current/ChangeLog?rev=46189&op=diff
==============================================================================
--- branches/upstream/libimage-size-perl/current/ChangeLog (original)
+++ branches/upstream/libimage-size-perl/current/ChangeLog Thu Oct 22 13:14:13 2009
@@ -4,6 +4,28 @@
fetching of image size information from files
in a wide variety of common (and not-so-common)
formats.
+
+3.210 Wednesday October 21, 2009, 06:50:00 PM -0700
+
+ * t/magick.t
+ Removed a stray colon causing errors with some Perl versions.
+
+ * t/00_load.t (added)
+ * t/00_signature.t (deleted)
+ * t/01_pod.t (added)
+ * t/02_pod_coverage.t (added)
+ * t/03_meta.t (added)
+ * t/04_minimumversion.t (added)
+ * t/05_critic.t (added)
+ * t/magick.t
+ * t/pod.t (deleted)
+ * t/pod_coverage.t (deleted)
+ Removed useless signature test, added QA tests, removed a
+ duplicate test.
+
+ * lib/Image/Size.pm
+ Moved around some conditionally-needed libs to delay loading
+ until/unless needed. Also made a small fix per Perl::Critic.
3.2 Monday February 23, 2009, 05:00:00 AM -0800
@@ -482,9 +504,9 @@
* t/all.t (added)
Initial commit of the core project files.
-# Generated on Monday February 23, 2009, 04:57:01 AM -0800
-# Using changelog2x/0.10, App::Changelog2x/0.10, XML::LibXML/1.69,
-# XML::LibXSLT/1.68, libxml/2.6.31, libxslt/1.1.22 (with exslt)
+# Generated on Wednesday October 21, 2009, 08:37:35 PM -0700
+# Using changelog2x/0.11, App::Changelog2x/0.11, XML::LibXML/1.70,
+# XML::LibXSLT/1.70, libxml/2.6.32, libxslt/1.1.24 (with exslt)
# XSLT sources:
# $Id: changelog2text.xslt 8 2009-01-19 06:46:50Z rjray $
# $Id: common-text.xslt 8 2009-01-19 06:46:50Z rjray $
Modified: branches/upstream/libimage-size-perl/current/ChangeLog.xml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libimage-size-perl/current/ChangeLog.xml?rev=46189&op=diff
==============================================================================
--- branches/upstream/libimage-size-perl/current/ChangeLog.xml (original)
+++ branches/upstream/libimage-size-perl/current/ChangeLog.xml Thu Oct 22 13:14:13 2009
@@ -13,6 +13,39 @@
information from files in a wide variety of common (and not-so-common)
formats.
</description>
+ <release version="3.210" sc:tag="3.210" date="2009-10-21T18:50:00-07:00">
+ <change git:commit="4f12b06dd27f1f7b720acaea7a369c653e659206">
+ <file path="t/magick.t" />
+ <description>
+ Removed a stray colon causing errors with some Perl versions.
+ </description>
+ </change>
+ <change git:commit="175a683f3d568c418a94218702997da20d237fdd">
+ <fileset>
+ <file path="t/00_load.t" action="ADD" />
+ <file path="t/00_signature.t" action="DELETE" />
+ <file path="t/01_pod.t" action="ADD" />
+ <file path="t/02_pod_coverage.t" action="ADD" />
+ <file path="t/03_meta.t" action="ADD" />
+ <file path="t/04_minimumversion.t" action="ADD" />
+ <file path="t/05_critic.t" action="ADD" />
+ <file path="t/magick.t" />
+ <file path="t/pod.t" action="DELETE" />
+ <file path="t/pod_coverage.t" action="DELETE" />
+ </fileset>
+ <description>
+ Removed useless signature test, added QA tests, removed a duplicate
+ test.
+ </description>
+ </change>
+ <change git:commit="2c11bfe0c4df6b6201bce8c44b5763151dacf42c">
+ <file path="lib/Image/Size.pm" />
+ <description>
+ Moved around some conditionally-needed libs to delay loading
+ until/unless needed. Also made a small fix per Perl::Critic.
+ </description>
+ </change>
+ </release>
<release version="3.2" date="2009-02-23T05:00:00-08:00" sc:tag="v3.2">
<change git:commit="16dfa93026200cf00840f5ec721ac765644f72a7">
<fileset>
Modified: branches/upstream/libimage-size-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libimage-size-perl/current/MANIFEST?rev=46189&op=diff
==============================================================================
--- branches/upstream/libimage-size-perl/current/MANIFEST (original)
+++ branches/upstream/libimage-size-perl/current/MANIFEST Thu Oct 22 13:14:13 2009
@@ -7,7 +7,13 @@
MANIFEST This list of files
MANIFEST.SKIP
README
-t/00_signature.t
+README.textile
+t/00_load.t
+t/01_pod.t
+t/02_pod_coverage.t
+t/03_meta.t
+t/04_minimumversion.t
+t/05_critic.t
t/468x60.psd
t/8.swf
t/all.t
@@ -18,8 +24,6 @@
t/magick.t
t/pak38.jpg
t/pass-1_s.png
-t/pod.t
-t/pod_coverage.t
t/spacer50.xbm
t/test.gif
t/xterm.bmp
Modified: branches/upstream/libimage-size-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libimage-size-perl/current/META.yml?rev=46189&op=diff
==============================================================================
--- branches/upstream/libimage-size-perl/current/META.yml (original)
+++ branches/upstream/libimage-size-perl/current/META.yml Thu Oct 22 13:14:13 2009
@@ -1,27 +1,30 @@
---
name: Image-Size
-version: 3.2
+version: 3.210
author:
- 'Randy J. Ray <rjray at blackperl.com>'
abstract: A library to extract height/width from images
license: perl
resources:
+ bugtracker: http://rt.cpan.org/Public/Dist/Display.html?Name=Image-Size
+ homepage: http://search.cpan.org/dist/Image-Size
license: http://dev.perl.org/licenses/
+ repository: http://github.com/rjray/image-size
+build_requires:
+ Module::Build: 0.28
+ Test::More: 0.80
requires:
File::Spec: 0.8
perl: 5.006
-build_requires:
- Module::Build: 0.28
- Test::More: 0.80
recommends:
Compress::Zlib: 2
- Test::Pod: 0
- Test::Pod::Coverage: 0
+configure_requires:
+ Module::Build: 0.35
provides:
Image::Size:
file: lib/Image/Size.pm
- version: 3.2
-generated_by: Module::Build version 0.31012
+ version: 3.210
+generated_by: Module::Build version 0.35
meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.2.html
- version: 1.2
+ url: http://module-build.sourceforge.net/META-spec-v1.4.html
+ version: 1.4
Modified: branches/upstream/libimage-size-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libimage-size-perl/current/Makefile.PL?rev=46189&op=diff
==============================================================================
--- branches/upstream/libimage-size-perl/current/Makefile.PL (original)
+++ branches/upstream/libimage-size-perl/current/Makefile.PL Thu Oct 22 13:14:13 2009
@@ -1,4 +1,4 @@
-# Note: this file was auto-generated by Module::Build::Compat version 0.31012
+# Note: this file was auto-generated by Module::Build::Compat version 0.35
require 5.006;
use ExtUtils::MakeMaker;
WriteMakefile
@@ -11,6 +11,9 @@
'Test::More' => '0.80'
},
'INSTALLDIRS' => 'site',
- 'EXE_FILES' => []
+ 'EXE_FILES' => [
+ 'imgsize'
+ ],
+ 'PL_FILES' => {}
)
;
Modified: branches/upstream/libimage-size-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libimage-size-perl/current/README?rev=46189&op=diff
==============================================================================
--- branches/upstream/libimage-size-perl/current/README (original)
+++ branches/upstream/libimage-size-perl/current/README Thu Oct 22 13:14:13 2009
@@ -1,33 +1,37 @@
Image::Size - Determine the size of images in several common formats
+====================================================================
-Version: 3.2 (See CHANGES below)
+Version: 3.210 (See CHANGES below)
+
WHAT IS IT
+----------
Image::Size is a library based on the image-sizing code in the wwwimagesize
-script, a tool that analyzes HTML files and adds HEIGHT and WIDTH tags to
-IMG directives. Image::Size has generalized that code to return a raw (X, Y)
-pair, and included wrappers to pre-format that output into either HTML or
-a set of attribute pairs suitable for the CGI.pm library by Lincoln Stein.
-Currently, Image::Size can size images in XPM, XBM, GIF, JPEG, PNG, MNG, TIFF,
-the PPM family of formats (PPM/PGM/PBM) and if Image::Magick is installed,
-the formats supported by it.
+script, a tool that analyzes HTML files and adds HEIGHT and WIDTH tags to IMG
+directives. Image::Size has generalized that code to return a raw (X, Y) pair,
+and included wrappers to pre-format that output into either HTML or a set of
+attribute pairs suitable for the CGI.pm library by Lincoln Stein. Currently,
+Image::Size can size images in XPM, XBM, GIF, JPEG, PNG, MNG, TIFF, the PPM
+family of formats (PPM/PGM/PBM) and if Image::Magick is installed, the formats
+supported by it.
I did this because my old WWW server generated a lot of documents on demand
rather than keeping them in static files. These documents not only used
directional icons and buttons, but other graphics to annotate and highlight
-sections of the text. Without size attributes, browsers cannot render the
-text of a page until the image data is loaded and the size known for layout.
-This library enables scripts to size their images at run-time and include
-that as part of the generated HTML. Or for any other utility that uses and
-manipulates graphics. The idea of the basic interface + wrappers is to not
-limit the programmer to a certain data format.
+sections of the text. Without size attributes, browsers cannot render the text
+of a page until the image data is loaded and the size known for layout. This
+library enables scripts to size their images at run-time and include that as
+part of the generated HTML. Or for any other utility that uses and manipulates
+graphics. The idea of the basic interface + wrappers is to not limit the
+programmer to a certain data format.
USING Image::Size IN YOUR SCRIPTS
+---------------------------------
-Image::Size has pod documentation that gives a more complete overview, but
-in a nutshell:
+Image::Size has pod documentation that gives a more complete overview, but in a
+nutshell:
use Image::Size;
@@ -52,65 +56,55 @@
attr_imgsize($r->lookup_uri($imgpath)->
filename) }));
+
BUILDING/INSTALLING
+-------------------
-This package now uses the Module::Build system:
-
- perl Build.PL
- ./Build && ./Build test
-
-If all tests pass, then:
-
- ./Build install
-
-
-You may need super-user access to install.
-
-There is a Makefile.PL provided for backwards compatibility:
+This package uses Makefile.PL:
perl Makefile.PL
make && make test
make install
-This simply wraps around the Build.PL file
+You may need super-user access to install.
PROBLEMS/BUG REPORTS
+--------------------
Please send any reports of problems or bugs to rjray at blackperl.com.
CHANGES
+-------
-* lib/Image/Size.pm
-* t/all.t
-Make the package buildable in a pure-Perl software stack. Per
-RT ticket #42930, make Compress::Zlib optional, so that those
-who do not need it are not required to install it. Updated the
-test around the compressed-SWF file to skip if Compress::Zlib
-is absent.
+ * t/magick.t
-* Build.PL (restored)
-* ChangeLog (deleted)
-* ChangeLog.xml (added)
-* MANIFEST (deleted)
-* Makefile.PL (deleted)
-* README.Win32 (deleted)
-* etc/ChangeLogML.xsd (added)
-Making large-scale house-keeping changes to the build/dist
-process. Replace ChangeLog (plain-text) with a ChangeLogML file
-created from the CVS/SVN history and hand-adjusted; add the XSD
-for ChangeLogML; restore Build.PL and heavily enhance; and
-remove README.Win32, Makefile.PL and MANIFEST.
+Removed a stray colon causing errors with some Perl versions.
-* lib/Image/Size.pm
-Per RT ticket #43452, make the cache visible outside the
-lexical scope of the module This allows the hash to be used
-with packages like IPC::Shareable or IPC::MM to enable sharing
-the cache between processes. Added extra documentation of this,
-and a new section describing approaches to cache-sharing.
+ * t/00_load.t (added)
-Transaction revision: 136
-* imgsize
-* lib/Image/Size.pm
-Fix URL/specification of the license info for LGPL.
+ * t/00_signature.t (deleted)
+
+ * t/01_pod.t (added)
+
+ * t/02_pod_coverage.t (added)
+
+ * t/03_meta.t (added)
+
+ * t/04_minimumversion.t (added)
+
+ * t/05_critic.t (added)
+
+ * t/magick.t
+
+ * t/pod.t (deleted)
+
+ * t/pod_coverage.t (deleted)
+
+Removed useless signature test, added QA tests, removed a duplicate test.
+
+ * lib/Image/Size.pm
+
+Moved around some conditionally-needed libs to delay loading until/unless
+needed. Also made a small fix per Perl::Critic.
Added: branches/upstream/libimage-size-perl/current/README.textile
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libimage-size-perl/current/README.textile?rev=46189&op=file
==============================================================================
--- branches/upstream/libimage-size-perl/current/README.textile (added)
+++ branches/upstream/libimage-size-perl/current/README.textile Thu Oct 22 13:14:13 2009
@@ -1,0 +1,91 @@
+h1. Image::Size - Determine the size of images in several common formats
+
+Version: 3.210 (See CHANGES below)
+
+h2. WHAT IS IT
+
+Image::Size is a library based on the image-sizing code in the wwwimagesize script, a tool that analyzes HTML files and adds HEIGHT and WIDTH tags to IMG directives. Image::Size has generalized that code to return a raw (X, Y) pair, and included wrappers to pre-format that output into either HTML or a set of attribute pairs suitable for the CGI.pm library by Lincoln Stein. Currently, Image::Size can size images in XPM, XBM, GIF, JPEG, PNG, MNG, TIFF, the PPM family of formats (PPM/PGM/PBM) and if Image::Magick is installed, the formats supported by it.
+
+I did this because my old WWW server generated a lot of documents on demand rather than keeping them in static files. These documents not only used directional icons and buttons, but other graphics to annotate and highlight sections of the text. Without size attributes, browsers cannot render the text of a page until the image data is loaded and the size known for layout. This library enables scripts to size their images at run-time and include that as part of the generated HTML. Or for any other utility that uses and manipulates graphics. The idea of the basic interface + wrappers is to not limit the programmer to a certain data format.
+
+
+h2. USING Image::Size IN YOUR SCRIPTS
+
+Image::Size has pod documentation that gives a more complete overview, but in a nutshell:
+
+<pre>
+<code>
+ use Image::Size;
+
+ ($x, $y) = imgsize("something.gif");
+</code>
+</pre>
+
+And <code>($x, $y)</code> is now the width and height of something.gif. 95% of my usage of this library is in conjunction with Lincoln Stein's CGI.pm:
+
+<pre>
+<code>
+ use CGI ':all';
+ use Image::Size 'attr_imgsize';
+
+ #
+ # Emit an IMG tag with size attributes:
+ #
+ print img({-SRC => '/server/images/arrow.gif',
+ attr_imgsize('/server_root/server/images/arrow.gif')});
+</code>
+</pre>
+
+Alternately, if you are running under Apache and mod_perl:
+
+<pre>
+<code>
+ # Assume $Q is an object of class CGI, $r is an Apache request object
+ $r->print($Q->img({ -src => $imgpath,
+ attr_imgsize($r->lookup_uri($imgpath)->
+ filename) }));
+</code>
+</pre>
+
+h2. BUILDING/INSTALLING
+
+This package uses Makefile.PL:
+
+<pre>
+<code>
+ perl Makefile.PL
+ make && make test
+ make install
+</code>
+</pre>
+
+You may need super-user access to install.
+
+
+h2. PROBLEMS/BUG REPORTS
+
+Please send any reports of problems or bugs to rjray at blackperl.com.
+
+
+h2. CHANGES
+
+* t/magick.t
+
+p{margin-bottom:2em}. Removed a stray colon causing errors with some Perl versions.
+
+* t/00_load.t (added)
+* t/00_signature.t (deleted)
+* t/01_pod.t (added)
+* t/02_pod_coverage.t (added)
+* t/03_meta.t (added)
+* t/04_minimumversion.t (added)
+* t/05_critic.t (added)
+* t/magick.t
+* t/pod.t (deleted)
+* t/pod_coverage.t (deleted)
+
+p{margin-bottom:2em}. Removed useless signature test, added QA tests, removed a duplicate test.
+
+* lib/Image/Size.pm
+
+p{margin-bottom:2em}. Moved around some conditionally-needed libs to delay loading until/unless needed. Also made a small fix per Perl::Critic.
Modified: branches/upstream/libimage-size-perl/current/SIGNATURE
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libimage-size-perl/current/SIGNATURE?rev=46189&op=diff
==============================================================================
--- branches/upstream/libimage-size-perl/current/SIGNATURE (original)
+++ branches/upstream/libimage-size-perl/current/SIGNATURE Thu Oct 22 13:14:13 2009
@@ -14,18 +14,24 @@
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
-SHA1 eeb8f7e5bb260bf021fa0112a8eb054a568062e2 ChangeLog
-SHA1 d72366d772f2f6b5c8a579c355b30021f9dffd72 ChangeLog.xml
-SHA1 24182747219926f0c86adeff0ea413c9c6103c71 MANIFEST
+SHA1 cc7dfd8fcd39908e53fb311ffa931e23c43e29f7 ChangeLog
+SHA1 2e7267a140dc69557578e0f1a25d7577a10465cf ChangeLog.xml
+SHA1 1cce1f3decdcd56dadcda708422233607fbe09ff MANIFEST
SHA1 98a2057923c1df7b8a393705a87dd7607ad5e4cb MANIFEST.SKIP
-SHA1 64c78f0afd740c6093b7767d1643d4e634a01b4e META.yml
-SHA1 41f17644756988d9e95fb4209b41343700c6ee60 Makefile.PL
-SHA1 bb43157b8b5d64391db496aeaaf38e72bd4e4c7f README
+SHA1 bde00846db768217cbd7e676b353575592e0d1b7 META.yml
+SHA1 16f4c16370a68ee0317b18f2d9f7d2e2f15a076e Makefile.PL
+SHA1 b2e0d6e07e911f1c4338c99f67432867c72049e7 README
+SHA1 cb85c97fcf6a9683f58fb42318fa44c3e8dc8fa8 README.textile
SHA1 8385faaace3c4e0eee9fe475a04f30c5c58683eb etc/ChangeLogML.xsd
SHA1 35e9fb37ea0fa935a5c4443947a1a2f8bfda7e2e ex/make_gallery.pl
SHA1 bb9acec811d1db410dcd0f27dd3f4883789a7e9d imgsize
-SHA1 b7fbe511a7bb1db65861a05681f797b73dc188db lib/Image/Size.pm
-SHA1 e8cbb92589ecb68c8f03eae2ce497974752f21cc t/00_signature.t
+SHA1 def6c5fdb0cf4ecfdfd01d2aeab0e00000fe9764 lib/Image/Size.pm
+SHA1 28c566b36a455b6eba8ff318f549da449198111e t/00_load.t
+SHA1 740510dca7790f4f0e127022f19038ec194d03cc t/01_pod.t
+SHA1 14686d81396c785473605ec8a0239b53a1a608eb t/02_pod_coverage.t
+SHA1 7c7868b6d22fcf74dd2e005650594c85de4476dd t/03_meta.t
+SHA1 5f1a2933d6a54060c6d1cb1df3370bb7761a0aa2 t/04_minimumversion.t
+SHA1 7ada8018d83909d9c2c235235ff692c69086a153 t/05_critic.t
SHA1 2ee82029c10fe46c29f6d78af599d4255e6cd315 t/468x60.psd
SHA1 92b2187605fc572527b5b87084487f1bd49c1d8a t/8.swf
SHA1 8805b9a96687428e12fb98dee973eebfa928e752 t/all.t
@@ -33,20 +39,18 @@
SHA1 1cd8f77cc80f024aa3abafdbe939c82457a779ed t/letter_N.ppm
SHA1 85d82a5ff573878502dab444601496ab8e0c3a7c t/letter_T.jpg
SHA1 d354368c023f29a33812472eb036f843978b6980 t/lexjdic.tif
-SHA1 1c1e7a555042a00906106179a4e47dd698b9b9ea t/magick.t
+SHA1 edaa2674622d8b59985305c89ee26765bf7c25f9 t/magick.t
SHA1 173842a6445c9cc1982de4cde3a37681d1028d0f t/pak38.jpg
SHA1 8db8a84a02ce05a88f0a2cded686a9b996cb33a5 t/pass-1_s.png
-SHA1 ecc48a43ef8a48dc95bc70b1de8659601861f672 t/pod.t
-SHA1 6cfd9f80374f325862df847172ab731e547ee2cc t/pod_coverage.t
SHA1 80a20df37262a63e01413136a4f7c08f6bbf247e t/spacer50.xbm
SHA1 c1815859c52e14be9e919e2fec0d092ff2c40006 t/test.gif
SHA1 dd6b8fe70fa99f66a2852d09eddd7493ec40262f t/xterm.bmp
SHA1 56d90857807bc62f46632c4cdc9331d87b71ec27 t/xterm.xpm
SHA1 4de752622ecfc7045623b39c0f7bce9c531e8a65 t/yasp.swf
-----BEGIN PGP SIGNATURE-----
-Version: GnuPG v1.4.6 (GNU/Linux)
+Version: GnuPG v1.4.9 (GNU/Linux)
-iD8DBQFJop0g3Cp33jjp81URAskZAJ93oLvx60ISxcMvmDYKR1ftMksh9ACfcM8f
-zt7kzUpVGB3cI6SmrLIO/T0=
-=sH+0
+iEYEARECAAYFAkrf038ACgkQ3Cp33jjp81UI1wCeOcx+UPs82S5hIKeaPtuY0HkT
+8YAAn0KCJk2nn0h1zzTcTI4KJw26T6gl
+=jPFR
-----END PGP SIGNATURE-----
Modified: branches/upstream/libimage-size-perl/current/lib/Image/Size.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libimage-size-perl/current/lib/Image/Size.pm?rev=46189&op=diff
==============================================================================
--- branches/upstream/libimage-size-perl/current/lib/Image/Size.pm (original)
+++ branches/upstream/libimage-size-perl/current/lib/Image/Size.pm Thu Oct 22 13:14:13 2009
@@ -23,9 +23,6 @@
use strict;
use warnings;
use bytes;
-use Cwd ();
-use File::Spec ();
-use Symbol ();
use AutoLoader 'AUTOLOAD';
require Exporter;
@@ -41,7 +38,7 @@
%CACHE $NO_CACHE $PCD_SCALE $GIF_BEHAVIOR);
%EXPORT_TAGS = ('all' => [ @EXPORT_OK ]);
- $VERSION = "3.2";
+ $VERSION = "3.210";
# Default behavior for GIFs is to return the "screen" size
$GIF_BEHAVIOR = 0;
@@ -170,6 +167,9 @@
{
unless ($NO_CACHE)
{
+ require Cwd;
+ require File::Spec;
+
$stream = File::Spec->catfile(Cwd::cwd(),$stream)
unless File::Spec->file_name_is_absolute($stream);
$mtime = (stat $stream)[9];
@@ -185,8 +185,9 @@
}
#first try to open the stream
+ require Symbol;
$handle = Symbol::gensym();
- open($handle, "< $stream") or
+ open($handle, "<", $stream) or
return (undef, undef, "Can't open image file $stream: $!");
$need_close = 1;
@@ -275,7 +276,7 @@
}
}
-# load Graphics::Magick or Image::Magick if one is not already loaded.
+# load Graphics::Magick or Image::Magick if one is not already loaded.
sub _load_magick_module {
my $module_name = shift;
eval {
@@ -741,7 +742,9 @@
attention by Matt Mueller I<mueller at wetafx.co.nz>. A thorough read of the
documentation and source by Philip Newton I<Philip.Newton at datenrevision.de>
found several typos and a small buglet. Ville Skyttä I<(ville.skytta at iki.fi)>
-provided the MNG and the Image::Magick fallback code.
+provided the MNG and the Image::Magick fallback code. Craig MacKenna
+I<(mackenna at animalhead.com)> suggested making the cache available so that it
+could be used with shared memory, and helped test my change before release.
=head1 BUGS
@@ -770,6 +773,10 @@
=item * Search CPAN
L<http://search.cpan.org/dist/Image-Size>
+
+=item * Project page on GitHub
+
+L<http://github.com/rjray/image-size>
=back
Added: branches/upstream/libimage-size-perl/current/t/00_load.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libimage-size-perl/current/t/00_load.t?rev=46189&op=file
==============================================================================
--- branches/upstream/libimage-size-perl/current/t/00_load.t (added)
+++ branches/upstream/libimage-size-perl/current/t/00_load.t Thu Oct 22 13:14:13 2009
@@ -1,0 +1,19 @@
+#!/usr/bin/perl
+
+use strict;
+use vars qw(@MODULES);
+
+use Test::More;
+
+# Verify that the individual modules will load
+
+BEGIN
+{
+ @MODULES = qw(Image::Size);
+
+ plan tests => scalar(@MODULES);
+}
+
+use_ok($_) for (@MODULES);
+
+exit 0;
Added: branches/upstream/libimage-size-perl/current/t/01_pod.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libimage-size-perl/current/t/01_pod.t?rev=46189&op=file
==============================================================================
--- branches/upstream/libimage-size-perl/current/t/01_pod.t (added)
+++ branches/upstream/libimage-size-perl/current/t/01_pod.t Thu Oct 22 13:14:13 2009
@@ -1,0 +1,24 @@
+#!/usr/bin/perl
+
+# Test that the syntax of our POD documentation is valid
+use strict;
+BEGIN
+{
+ $| = 1;
+ $^W = 1;
+
+ use Test::More;
+ unless ($ENV{AUTHOR_TESTING})
+ {
+ plan skip_all => "Author tests not required for installation";
+ }
+ else
+ {
+ eval "use Pod::Simple;";
+ eval "use Test::Pod;";
+ }
+}
+
+all_pod_files_ok();
+
+exit;
Added: branches/upstream/libimage-size-perl/current/t/02_pod_coverage.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libimage-size-perl/current/t/02_pod_coverage.t?rev=46189&op=file
==============================================================================
--- branches/upstream/libimage-size-perl/current/t/02_pod_coverage.t (added)
+++ branches/upstream/libimage-size-perl/current/t/02_pod_coverage.t Thu Oct 22 13:14:13 2009
@@ -1,0 +1,26 @@
+#!/usr/bin/perl
+
+# Test that the syntax of our POD documentation is valid
+use strict;
+BEGIN
+{
+ $| = 1;
+ $^W = 1;
+
+ use Test::More;
+ unless ($ENV{AUTHOR_TESTING})
+ {
+ plan skip_all => "Author tests not required for installation";
+ }
+ else
+ {
+ eval "use Test::Pod::Coverage;";
+ }
+}
+
+plan tests => 1;
+
+pod_coverage_ok('Image::Size' => { also_private => [ qr/size$/, 'img_eof' ] },
+ 'Image::Size');
+
+exit;
Added: branches/upstream/libimage-size-perl/current/t/03_meta.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libimage-size-perl/current/t/03_meta.t?rev=46189&op=file
==============================================================================
--- branches/upstream/libimage-size-perl/current/t/03_meta.t (added)
+++ branches/upstream/libimage-size-perl/current/t/03_meta.t Thu Oct 22 13:14:13 2009
@@ -1,0 +1,27 @@
+#!/usr/bin/perl
+
+# Test that our META.yml file matches the specification
+use strict;
+BEGIN
+{
+ $| = 1;
+ $^W = 1;
+
+ use Test::More;
+ unless ($ENV{AUTHOR_TESTING})
+ {
+ plan skip_all => "Author tests not required for installation";
+ }
+ elsif (! -f 'META.yml')
+ {
+ plan skip_all => "No META.yml file present";
+ }
+ else
+ {
+ eval "use Test::CPAN::Meta;";
+ }
+}
+
+meta_yaml_ok();
+
+exit;
Added: branches/upstream/libimage-size-perl/current/t/04_minimumversion.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libimage-size-perl/current/t/04_minimumversion.t?rev=46189&op=file
==============================================================================
--- branches/upstream/libimage-size-perl/current/t/04_minimumversion.t (added)
+++ branches/upstream/libimage-size-perl/current/t/04_minimumversion.t Thu Oct 22 13:14:13 2009
@@ -1,0 +1,24 @@
+#!/usr/bin/perl
+
+# Test that our declared minimum Perl version matches our syntax
+use strict;
+BEGIN
+{
+ $| = 1;
+ $^W = 1;
+
+ use Test::More;
+ unless ($ENV{AUTHOR_TESTING})
+ {
+ plan( skip_all => "Author tests not required for installation" );
+ }
+ else
+ {
+ eval "use Perl::MinimumVersion;";
+ eval "use Test::MinimumVersion;";
+ }
+}
+
+all_minimum_version_from_metayml_ok();
+
+exit;
Added: branches/upstream/libimage-size-perl/current/t/05_critic.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libimage-size-perl/current/t/05_critic.t?rev=46189&op=file
==============================================================================
--- branches/upstream/libimage-size-perl/current/t/05_critic.t (added)
+++ branches/upstream/libimage-size-perl/current/t/05_critic.t Thu Oct 22 13:14:13 2009
@@ -1,0 +1,24 @@
+#!/usr/bin/perl
+
+# Test that the module passes perlcritic
+use strict;
+BEGIN
+{
+ $| = 1;
+ $^W = 1;
+
+ use Test::More;
+ unless ($ENV{AUTHOR_TESTING})
+ {
+ plan skip_all => "Author tests not required for installation";
+ }
+ else
+ {
+ eval "use Perl::Critic;";
+ eval "use Test::Perl::Critic;";
+ }
+}
+
+all_critic_ok();
+
+exit;
Modified: branches/upstream/libimage-size-perl/current/t/magick.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libimage-size-perl/current/t/magick.t?rev=46189&op=diff
==============================================================================
--- branches/upstream/libimage-size-perl/current/t/magick.t (original)
+++ branches/upstream/libimage-size-perl/current/t/magick.t Thu Oct 22 13:14:13 2009
@@ -2,10 +2,11 @@
# Tests related to Image::Magick and Graphics::Magick
-BEGIN: {
- use Test::More tests => 2;
- use_ok('Image::Size');
-}
+use Test::More;
+
+use Image::Size;
+
+plan tests => 1;
# This test should work whether or not Image::Magick is installed.
ok(!(exists $INC{'Image/Magick.pm'}),
More information about the Pkg-perl-cvs-commits
mailing list