From 34f2f8ea41726d98e50752ff3453ebde70912c35 Mon Sep 17 00:00:00 2001
From: Sergei Golubchik <sergii@pisem.net>
Date: Fri, 1 Jun 2012 17:53:59 +0200
Subject: MDEV-256 lp:995501 - mysqltest attempts to parse Perl code inside a
 block with false condition, gets confused and throws wrong errors

---
 mysql-test/t/mysqltest_256.test | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100644 mysql-test/t/mysqltest_256.test

(limited to 'mysql-test/t')

diff --git a/mysql-test/t/mysqltest_256.test b/mysql-test/t/mysqltest_256.test
new file mode 100644
index 00000000000..fd9447cd2d8
--- /dev/null
+++ b/mysql-test/t/mysqltest_256.test
@@ -0,0 +1,17 @@
+#
+# MDEV-256 lp:995501 - mysqltest attempts to parse Perl code inside a block
+# with false condition, gets confused and throws wrong errors
+#
+
+let $run = 0;
+if ($run)
+{
+  --perl
+  foreach (1)
+  {
+    print "In perl\n";
+  }
+  EOF
+  SELECT 1;
+}
+--echo # Done
-- 
cgit v1.2.1