[perl5.git] / dist / Carp / t / with_warnings.t

BEGIN { print "1..1\n"; }

use Carp ();
use warnings ();
$SIG{__WARN__} = sub {};
eval { warnings::warn("syntax", "foo") };
print $@ eq "" ? "" : "not ", "ok 1\n";

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