From 7bac4ce875653e750e72aa5038f1e68d9d52e2e9 Mon Sep 17 00:00:00 2001
From: Gerard Goossen <gerard@ggoossen.net>
Date: Sat, 11 Jun 2011 22:14:03 +0200
Subject: [PATCH] inifinite loop breaking some strict checking, TODO test.

---
 t/lib/strict/subs | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/t/lib/strict/subs b/t/lib/strict/subs
index 87311f8..394c8d1 100644
--- a/t/lib/strict/subs
+++ b/t/lib/strict/subs
@@ -432,3 +432,13 @@ ret
 foo:
 ret
 bar
+########
+# TODO infinite loop breaks some strict checking
+use strict 'subs';
+sub foo {
+    1 while 1;
+    kill FOO, 1;
+}
+EXPECT
+Bareword "FOO" not allowed while "strict subs" in use at - line 5.
+Execution of - aborted due to compilation errors.
-- 
2.7.4