  mg.c	AOK

  Mandatory Warnings TODO
  ------------------
  Can't break at that line	[magic_setdbline]

__END__
# TODO variable name extraction mg.c
use warnings 'uninitialized';
'foo' =~ m/(foo)/;
oct $3;
EXPECT
Use of uninitialized value $::3 in oct at - line 4 character 1.
########
# TODO variable name extraction mg.c
use warnings 'uninitialized';
oct $3;
EXPECT
Use of uninitialized value $::3 in oct at - line 3 character 1.
########
# mg.c
use warnings 'uninitialized';
env::var("FOO") = undef; # should not warn
EXPECT

########
