1N/A#!perl -w
1N/A
1N/ABEGIN {
1N/A if( $ENV{PERL_CORE} ) {
1N/A chdir 't';
1N/A @INC = '../lib';
1N/A }
1N/A}
1N/A
1N/Ause Test::More tests => 1;
1N/A
1N/Atie *STDOUT, "Dev::Null" or die $!;
1N/A
1N/Aprint "not ok 1\n"; # this should not print.
1N/Apass 'STDOUT can be mucked with';
1N/A
1N/A
1N/Apackage Dev::Null;
1N/A
1N/Asub TIEHANDLE { bless {} }
1N/Asub PRINT { 1 }