#
#========================================================================
#
-# Version 2.0.0_CVS, released 18 Jan 2003.
+# Version 2.0.0beta2, released 13 Apr 2003.
#
# See http://backuppc.sourceforge.net.
#
my $n = length($$dataRef);
return if ( !$self->{write} );
+ print($$dataRef) if ( $self->{writeTeeStdout} );
return 0 if ( $n == 0 );
if ( !$self->{compress} ) {
#
return $self->{name};
}
+sub writeTeeStdout
+{
+ my($self, $param) = @_;
+
+ $self->{writeTeeStdout} = $param if ( defined($param) );
+ return $self->{writeTeeStdout};
+}
+
sub close
{
my($self) = @_;