# mg.c
use warnings 'uninitialized';
'foo' =~ /(foo)/;
-length $3;
+oct $3;
EXPECT
-Use of uninitialized value $3 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 $3 in length at - line 3.