X-Git-Url: http://git.rot13.org/?p=BackupPC.git;a=blobdiff_plain;f=lib%2FBackupPC%2FPoolWrite.pm;h=de166a9fb08ad77f72271dd433588a9610c53d09;hp=c17cbeec460b3d3a2e30c676cad305619d1b45ee;hb=c2b072c9ad558447fb73fedf0cad170214b7d80e;hpb=4cdaa6b8a9f5161ee2da4371d68cbbad41248ea0

diff --git a/lib/BackupPC/PoolWrite.pm b/lib/BackupPC/PoolWrite.pm
index c17cbee..de166a9 100644
--- a/lib/BackupPC/PoolWrite.pm
+++ b/lib/BackupPC/PoolWrite.pm
@@ -56,7 +56,7 @@
 #
 #========================================================================
 #
-# Version 3.0.0beta0, released 11 Jul 2006.
+# Version 3.0.0, released 28 Jan 2007.
 #
 # See http://backuppc.sourceforge.net.
 #
@@ -438,10 +438,11 @@ sub write
                 push(@{$a->{errors}},
                         "Unable to open $a->{fileName}"
                       . " for writing after link fail\n");
+            } else {
+                $a->filePartialCopy($a->{files}[$i]->{fh}, $a->{fhOut},
+                                    $a->{nWrite});
+                $a->{fhOut}->close;
             }
-            $a->filePartialCopy($a->{files}[$i]->{fh}, $a->{fhOut},
-                                $a->{nWrite});
-            $a->{fhOut}->close;
             last;
         }
         #