#
#========================================================================
#
-# Version 3.1.0beta0, released 3 Sep 2007.
+# Version 3.1.0, released 25 Nov 2007.
#
# See http://backuppc.sourceforge.net.
#
[ \%Info, \%Status],
[qw(*Info *Status)]);
$dump->Indent(1);
- $bpc->{storage}->TextFileWrite("$LogDir/status.pl", $dump->Dump);
+ my $text = $dump->Dump;
+ $bpc->{storage}->TextFileWrite("$LogDir/status.pl", $text);
}
#