Actually submit previous change.

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

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