avoid using CHECK as a label, since 5.11.x chokes on it

diff --git a/Changes b/Changes
index fb2316314890e51ca828c87247818f127f9da46e..5623b9cda865d4201d4b3781cf8b58e2bdc2fcc2 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,5 +1,13 @@
 Imager release history.  Older releases can be found in Changes.old
 
+Imager 0.68 - unrelease
+===========
+
+Bug fixes:
+
+ - avoid using CHECK as a label in Imager::Test
+   http://nntp.x.perl.org/group/perl.cpan.testers/5220921
+
 Imager 0.67_01 - 02 Sep 2009
 ==============
 

diff --git a/lib/Imager/Test.pm b/lib/Imager/Test.pm
index a4912945511f3e0c2f1b7d2276f1e2a3fd3bd32b..e2e27560e2739e7142c7745ec47148aaa087d00f 100644 (file)
--- a/lib/Imager/Test.pm
+++ b/lib/Imager/Test.pm
@@ -311,14 +311,14 @@ sub is_image_similar($$$$) {
    
     if ($limit == 0) {
       # find the first mismatch
-      CHECK:
+      PIXELS:
       for my $y (0 .. $left->getheight()-1) {
        for my $x (0.. $left->getwidth()-1) {
          my @lsamples = $left->getsamples(x => $x, y => $y, width => 1);
          my @rsamples = $right->getsamples(x => $x, y => $y, width => 1);
           if ("@lsamples" ne "@rsamples") {
             $builder->diag("first mismatch at ($x, $y) - @lsamples vs @rsamples");
-            last CHECK;
+            last PIXELS;
           }
        }
       }