- added t/t91pod.t

diff --git a/Changes b/Changes
index 43d43820d89403cb6381de44d4b178d8ad962cb3..3e5706965e143f4f3a464cbe49f6fe7ce3f73926 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1170,6 +1170,7 @@ Revision history for Perl extension Imager.
 - double per sample images were ignoring the channel mask.
 - converted t/t021sixteen.t to use Test::More
 - 16-bit per sample images were ignoring the channel mask
+- added t/t91pod.t
 
 =================================================================
 

diff --git a/MANIFEST b/MANIFEST
index ab3a70cacf02cd75a4f694d40b0250e3c60302cb..4658835bf146e054a81a3293fc7c935e27db40dd 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -165,6 +165,7 @@ t/t70newgif.t
 t/t75polyaa.t
 t/t80texttools.t        Test text wrapping
 t/t90cc.t
+t/t91pod.t             Test POD with Test::Pod
 t/testtools.pl
 tags.c
 testimg/bad1oflow.bmp   1-bit/pixel, overflow integer on 32-bit machines

diff --git a/lib/Imager/Engines.pod b/lib/Imager/Engines.pod
index 0cf1e6732e08d418bc29c6c41e218f4fc78f22e0..03aa8787dd8786ed0aa767ddcfd6af4b55830f6c 100644 (file)
--- a/lib/Imager/Engines.pod
+++ b/lib/Imager/Engines.pod
@@ -226,7 +226,7 @@ Natural logarithm and exponential.
 
 =back
 
-=item Constants
+=head3 Constants
 
 transform2() defines the following constants:
 

diff --git a/t/t91pod.t b/t/t91pod.t
new file mode 100644 (file)
index 0000000..5475b0c
--- /dev/null
+++ b/t/t91pod.t
@@ -0,0 +1,6 @@
+#!perl -w
+use strict;
+use Test::More;
+eval "use Test::Pod;";
+plan skip_all => "Test::Pod 1.00 required for testing POD" if $@;
+all_pod_files_ok();