PNG re-work: avoid the comment in qw() warning

diff --git a/PNG/t/10png.t b/PNG/t/10png.t
index 3638d5c04ec1bb0ad84227a26717587c18dc1136..8ef014100e4ed20a8d66eb77b326cca6131342bf 100644 (file)
--- a/PNG/t/10png.t
+++ b/PNG/t/10png.t
@@ -427,7 +427,7 @@ SKIP:
 {
   my $pim = Imager->new(xsize => 5, ysize => 2, channels => 3, type => "paletted");
   ok($pim, "make a 3 channel paletted image");
 {
   my $pim = Imager->new(xsize => 5, ysize => 2, channels => 3, type => "paletted");
   ok($pim, "make a 3 channel paletted image");

-  ok($pim->addcolors(colors => [ qw(#000 #FFF #F00 #0F0 #00f) ]),
+  ok($pim->addcolors(colors => [ qw(000000 FFFFFF FF0000 00FF00 0000FF) ]),

      "add some colors");
   is($pim->setscanline(y => 0, type => "index",
                       pixels => [ 0, 1, 2, 4, 3 ]), 5, "set some pixels");
      "add some colors");
   is($pim->setscanline(y => 0, type => "index",
                       pixels => [ 0, 1, 2, 4, 3 ]), 5, "set some pixels");


@@ -449,7 +449,7 @@ SKIP:
   my $pim = Imager->new(xsize => 8, ysize => 2, channels => 4, type => "paletted");
   ok($pim, "make a 4 channel paletted image");
   ok($pim->addcolors
   my $pim = Imager->new(xsize => 8, ysize => 2, channels => 4, type => "paletted");
   ok($pim, "make a 4 channel paletted image");
   ok($pim->addcolors

-     (colors => [ NC(255, 255, 0, 128), qw(#000 #FFF #F00 #0F0 #00f),
+     (colors => [ NC(255, 255, 0, 128), qw(000000 FFFFFF FF0000 00FF00 0000FF),

                  NC(0, 0, 0, 0), NC(255, 0, 128, 64) ]),
      "add some colors");
   is($pim->setscanline(y => 0, type => "index",
                  NC(0, 0, 0, 0), NC(255, 0, 128, 64) ]),
      "add some colors");
   is($pim->setscanline(y => 0, type => "index",