1BEGIN { print "1..1\n"; }
2
3use Carp ();
4use warnings ();
5$SIG{__WARN__} = sub {};
6eval { warnings::warn("syntax", "foo") };
7print $@ eq "" ? "" : "not ", "ok 1\n";
8
91;
10