handle a slightly different warning from libtiff 4.x

diff --git a/Changes b/Changes
index 4c35aee3620757a7c25774b3dc164a5688964f63..539a2a8a5ccdb772605c36bf889834c127409aa0 100644 (file)
--- a/Changes
+++ b/Changes
@@ -30,6 +30,9 @@ Bug fixes:
  - make sure each test script that needs testout/ creates it.
    https://rt.cpan.org/Ticket/Display.html?id=65088
 
+ - handle a slightly different warning from libtiff 4.x
+   https://rt.cpan.org/Ticket/Display.html?id=65268
+
 Imager 0.80 - 17 Jan 2011
 ===========
 

diff --git a/TIFF/t/t10tiff.t b/TIFF/t/t10tiff.t
index 77f16de3b1c0a047d162852f5b832338c7e8f8ec..ddbc2366dd110ff4093ba2530d7b267b78521a86 100644 (file)
--- a/TIFF/t/t10tiff.t
+++ b/TIFF/t/t10tiff.t
@@ -1,6 +1,6 @@
 #!perl -w
 use strict;
-use Test::More tests => 216;
+use Test::More tests => 217;
 use Imager qw(:all);
 use Imager::Test qw(is_image is_image_similar test_image test_image_16 test_image_double test_image_raw);
 
@@ -336,8 +336,9 @@ is($unitname, 'inch', "check tiff_resolutionunit_name tag");
 my $warned = Imager->new;
 ok($warned->read(file=>"testimg/tiffwarn.tif"), "read tiffwarn.tif");
 my ($warning) = $warned->tags(name=>'i_warning');
-ok(defined $warning && $warning =~ /unknown field with tag 28712/,
-   "check that warning tag set and correct");
+ok(defined $warning, "check warning is set");
+like($warning, qr/[Uu]nknown field with tag 28712/,
+     "check that warning tag correct");
 
 { # support for reading a given page
   # first build a simple test image