[gimp-perl] get Xlib warning ignoring logic right

[Ed J <edj src gnome org>]

commit dd7584c998caff50b2dd8824bfc551b90f01e8c3
Author: Ed J <edj src gnome org>
Date:   Mon May 2 19:48:36 2016 +0100

    get Xlib warning ignoring logic right

 t/02-netplugin.t |    6 +++---
 1 files changed, 3 insertions(+), 3 deletions(-)
---
diff --git a/t/02-netplugin.t b/t/02-netplugin.t
index dfe5393..6ce3508 100644
--- a/t/02-netplugin.t
+++ b/t/02-netplugin.t
@@ -2,11 +2,11 @@ use strict;
 use Test::More;
 our ($dir, $DEBUG);
 my @PLUGINS;
-my $UNLIKE_RX;
+my $LIKE_RX;
 BEGIN {
 #  $Gimp::verbose = 3;
   @PLUGINS = qw(dots glowing_steel map_to_gradient redeye);
-  $UNLIKE_RX = qr/^Xlib:  extension "RANDR" missing/;
+  $LIKE_RX = qr/^(Xlib:\s*extension "RANDR" missing.*|)$/m;
   $DEBUG = 0;
   require 't/gimpsetup.pl';
   # most minimal and elegant would be to symlink sandbox gimp-dir's
@@ -69,7 +69,7 @@ for my $test (@testbench) {
       }
     }
   }
-  unlike(join('', @errlines), $UNLIKE_RX, "$name stderr not of concern");
+  like(join('', @errlines), $LIKE_RX, "$name stderr not of concern");
   is(join('', @outlines), '', "$name stdout empty");
   waitpid($pid, 0);
   is($? >> 8, 0, "$file exit=0");