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

#!/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();