From afee75f66be6032242d744b84bfeed1bda0d8779 Mon Sep 17 00:00:00 2001
From: Tony Cook <tony@develop-help.com>
Date: Sat, 5 Feb 2011 14:28:55 +1100
Subject: [PATCH] handle a slightly different warning from libtiff 4.x

---
 Changes          | 3 +++
 TIFF/t/t10tiff.t | 7 ++++---
 2 files changed, 7 insertions(+), 3 deletions(-)

diff --git a/Changes b/Changes
index 4c35aee3..539a2a8a 100644
--- 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 77f16de3..ddbc2366 100644
--- 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
-- 
2.39.5