X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;ds=sidebyside;f=bin%2FBackupPC_link;h=290c9d98c1b2787b427e34624351053bae26eaba;hb=8f5625f9cdf47f8e04be654c4954838b2df3e26d;hp=d17752cc6b9af696a5d8fb7d9c37b4bc15ea6184;hpb=329e870f56fb6572fa697998d33676588034c149;p=BackupPC.git

diff --git a/bin/BackupPC_link b/bin/BackupPC_link
index d17752c..290c9d9 100755
--- a/bin/BackupPC_link
+++ b/bin/BackupPC_link
@@ -1,4 +1,4 @@
-#!/bin/perl -T
+#!/bin/perl
 #============================================================= -*-perl-*-
 #
 # BackupPC_link: link new backup into pool
@@ -39,7 +39,7 @@
 #
 #========================================================================
 #
-# Version 2.1.0_CVS, released 3 Jul 2003.
+# Version 2.1.0beta0, released 20 Mar 2004.
 #
 # See http://backuppc.sourceforge.net.
 #
@@ -128,7 +128,7 @@ while ( 1 ) {
     #
     my $noFill = 1;
     my $fillFromNum;
-    if ( $Backups[$num]{type} eq "full" ) {
+    if ( $Backups[$num]{type} ne "incr" ) {
         $noFill = 0
     } elsif ( $Conf{IncrFill} ) {
         my $i;