xref: /openbsd-src/gnu/usr.bin/perl/cpan/autodie/t/exception_nonref.t (revision 256a93a44f36679bee503f12e49566c2183f6181)

#!/usr/bin/perl -w
use strict;
use Test::More tests => 1;
use autodie;

eval { syswrite "xxxxxxxx", \*STDOUT };
my $err = $@;

like( $err, qr<xxxxxxxx>, 'expected failure on attempt to write to non-reference' );

done_testing();