with_warnings.t « t « Carp « dist « perl « usr.bin « gnu - wireguard-openbsd - WireGuard implementation for the OpenBSD kernel

summary refs log tree commit diff stats

path: root/gnu/usr.bin/perl/dist/Carp/t/with_warnings.t

blob: 2ed9b14b3575f46e950da01a54a2dddb443bf324 (plain) (blame)

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

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

1;