xref: /openbsd-src/gnu/usr.bin/perl/cpan/autodie/t/exception_nonref.t (revision 256a93a44f36679bee503f12e49566c2183f6181)
1#!/usr/bin/perl -w
2use strict;
3use Test::More tests => 1;
4use autodie;
5
6eval { syswrite "xxxxxxxx", \*STDOUT };
7my $err = $@;
8
9like( $err, qr<xxxxxxxx>, 'expected failure on attempt to write to non-reference' );
10
11done_testing();
12