# *|* PERL *|*
#
# Standand error turning on/off.
#
# File: Stderr.pm
#
# Author: Nem W Schlecht
# Last Modification: $Date$
#
# $Id$
# $Log$
#

package Stderr;

sub new { bless {} }

#
# Turn off stderr
sub erroff {
    open(SAVEERR, ">&STDERR");
    close(STDERR);
}

#
# Turn on stderr
sub erron {
    open(STDERR, ">&SAVEERR");
    close(SAVEERR);
}

1;