Warnings within the condition of while are not reported with the

[p5sagit/p5-mst-13.2.git] / t / lib / warnings / mg

diff --git a/t/lib/warnings/mg b/t/lib/warnings/mg
index f7c3ebf..8915c28 100644 (file)
--- a/t/lib/warnings/mg
+++ b/t/lib/warnings/mg
@@ -46,12 +46,17 @@ EXPECT
 # mg.c
 use warnings 'uninitialized';
 'foo' =~ /(foo)/;
-length $3;
+oct $3;
 EXPECT
-Use of uninitialized value in length at - line 4.
+Use of uninitialized value $3 in oct at - line 4.
 ########
 # mg.c
 use warnings 'uninitialized';
-length $3;
+oct $3;
+EXPECT
+Use of uninitialized value $3 in oct at - line 3.
+########
+# mg.c
+use warnings 'uninitialized';
+$ENV{FOO} = undef; # should not warn
 EXPECT
-Use of uninitialized value in length at - line 3.