/ 
uni-perl-0.92
River stage one • 2 direct dependents • 2 total dependents
/ t/04-warns.t

test_warn_die { use warnings FATAL => 'newline'; open my $f, '>', "newlinefile\0\0" or warn "$!"; } 'newline + fail';

test_no_warn { open my $f, '>', "newlinefile\n"; } 'newline';