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