1*256a93a4Safresh1#!/usr/bin/perl -w 2*256a93a4Safresh1use strict; 3*256a93a4Safresh1use Test::More tests => 1; 4*256a93a4Safresh1use autodie; 5*256a93a4Safresh1 6*256a93a4Safresh1eval { syswrite "xxxxxxxx", \*STDOUT }; 7*256a93a4Safresh1my $err = $@; 8*256a93a4Safresh1 9*256a93a4Safresh1like( $err, qr<xxxxxxxx>, 'expected failure on attempt to write to non-reference' ); 10*256a93a4Safresh1 11*256a93a4Safresh1done_testing(); 12