* Minor change to bin/BackupPC
authorcbarratt <cbarratt>
Mon, 22 Oct 2007 02:15:36 +0000 (02:15 +0000)
committercbarratt <cbarratt>
Mon, 22 Oct 2007 02:15:36 +0000 (02:15 +0000)
bin/BackupPC

index 34aa064..195e19b 100755 (executable)
@@ -47,7 +47,7 @@
 #
 #========================================================================
 #
 #
 #========================================================================
 #
-# Version 3.1.0beta0, released 3 Sep 2007.
+# Version 3.1.0beta1, released 21 Oct 2007.
 #
 # See http://backuppc.sourceforge.net.
 #
 #
 # See http://backuppc.sourceforge.net.
 #
@@ -1590,7 +1590,8 @@ sub StatusWrite
              [  \%Info, \%Status],
              [qw(*Info   *Status)]);
     $dump->Indent(1);
              [  \%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);
 }
 
 #
 }
 
 #