Use precompiled Parse::RecDescent parsers for moar speed

[dbsrgits/SQL-Translator.git] / t / 02mysql-parser.t

diff --git a/t/02mysql-parser.t b/t/02mysql-parser.t
index 2ac1a92..4dd921c 100644 (file)
--- a/t/02mysql-parser.t
+++ b/t/02mysql-parser.t
@@ -873,7 +873,9 @@ ok ($@, 'Exception thrown on invalid version string');
 
 {
     # silence PR::D from spewing on STDERR
-    local ($::RD_ERRORS, $::RD_WARN,$::RD_HINT,$::RD_TRACE);
+    local $::RD_ERRORS = 0;
+    local $::RD_WARN = 0;
+    local $::RD_HINT = 0;
     my $tr = SQL::Translator->new;
     my $data = q|create table "sessions" (
         id char(32) not null default,