remove unneeded \Q\E in test

diff --git a/Changes b/Changes
index 451fd86..d1e42ee 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,5 +1,7 @@
 ChangeLog for Log-Contextual
 
+  - Fix warning in test suite in Perl 5.16
+
 0.004100 2012-03-29
   - Log::Contextual::WarnLogger now supports customized log levels via the
     'levels' constructor argument (Karen Etheridge)

diff --git a/t/warnlogger-with-levels.t b/t/warnlogger-with-levels.t
index 3ca3df2..1d7cad7 100644 (file)
--- a/t/warnlogger-with-levels.t
+++ b/t/warnlogger-with-levels.t
@@ -80,7 +80,7 @@ use Test::Fatal;
         local $ENV{BAR_UPTO} = 'foo';
         like(
             exception { $l->is_bar },
-            qr/\QUnrecognized log level 'foo'\E in \$ENV{BAR_UPTO}\E/,
+            qr/Unrecognized log level 'foo' in \$ENV{BAR_UPTO}/,
             'Cannot use an unrecognized log level in UPTO',
         );
     }