dslinux/user/perl/t/lib/Dev Null.pm

[cayenne]

Update of /cvsroot/dslinux/dslinux/user/perl/t/lib/Dev
In directory antilope:/tmp/cvs-serv17422/t/lib/Dev

Added Files:
	Null.pm 
Log Message:
Adding fresh perl source to HEAD to branch from

--- NEW FILE: Null.pm ---
# For shutting up Test::Harness.
# Has to work on 5.004 which doesn't have Tie::StdHandle.
package Dev::Null;

sub WRITE  {}
sub PRINT  {}
sub PRINTF {}
sub TIEHANDLE {
    my $class = shift;
    my $fh    = do { local *HANDLE;  \*HANDLE };
    return bless $fh, $class;
}
sub READ {}
sub READLINE {}
sub GETC {}

1;