1*b39c5158Smillert# For shutting up Test::Harness. 2*b39c5158Smillert# Has to work on 5.004 which doesn't have Tie::StdHandle. 3*b39c5158Smillertpackage Dev::Null; 4*b39c5158Smillert 5*b39c5158Smillertsub WRITE { } 6*b39c5158Smillertsub PRINT { } 7*b39c5158Smillertsub PRINTF { } 8*b39c5158Smillert 9*b39c5158Smillertsub TIEHANDLE { 10*b39c5158Smillert my $class = shift; 11*b39c5158Smillert my $fh = do { local *HANDLE; \*HANDLE }; 12*b39c5158Smillert return bless $fh, $class; 13*b39c5158Smillert} 14*b39c5158Smillertsub READ { } 15*b39c5158Smillertsub READLINE { } 16*b39c5158Smillertsub GETC { } 17*b39c5158Smillert 18*b39c5158Smillert1; 19