From: Tony Cook <tony@develop=help.com>
Date: Mon, 19 Feb 2007 23:52:03 +0000 (+0000)
Subject: pgm.pgm was missing from MANIFEST
X-Git-Tag: Imager-0.56~16
X-Git-Url: http://git.imager.perl.org/imager.git/commitdiff_plain/73497ab9107f14c7b36e4396387227258237e7e5?ds=inline

pgm.pgm was missing from MANIFEST
---

diff --git a/MANIFEST b/MANIFEST
index 32c78174..95f8f1ab 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -300,8 +300,8 @@ testimg/newgimpgrad.ggr Test GIMP Gradient file (newer type)
 testimg/nocmap.gif
 testimg/palette.png
 testimg/palette_out.png
-testimg/pgm.pgm		Simple pgm for testing the right sample is in the right place
 testimg/penguin-base.ppm
+testimg/pgm.pgm		Simple pgm for testing the right sample is in the right place
 testimg/scale.gif
 testimg/scale.ppm
 testimg/scalei.gif
diff --git a/t/t104ppm.t b/t/t104ppm.t
index a164f86d..690b2dae 100644
--- a/t/t104ppm.t
+++ b/t/t104ppm.t
@@ -202,7 +202,8 @@ is($ooim->tags(name=>'pnm_type'), 1, "check pnm_type tag");
   # check we correctly sync with the data stream
   my $im = Imager->new;
   ok($im->read(file => 'testimg/pgm.pgm', type => 'pnm'),
-     "read pgm.pgm");
+     "read pgm.pgm")
+    or print "# cannot read pgm.pgm: ", $im->errstr, "\n";
   print "# ", $im->getsamples('y' => 0), "\n";
   is_color1($im->getpixel(x=>0, 'y' => 0), 254, "check top left");
 }