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