chiark / gitweb /
@@ -1,4 +1,4 @@
[chiark-utils.git] / backup / backuplib.pl
index 26a8533..ba1c50b 100644 (file)
@@ -21,6 +21,8 @@
 # with this program; if not, write to the Free Software Foundation, Inc.,
 # 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
 
+require IO::File;
+
 sub printdate () {
     print scalar(localtime),"\n";
 }
@@ -93,14 +95,15 @@ sub readfsysfile ($) {
         } elsif (m/^exclude\s+(\S.*\S)$/) {
             push @excl,$1;
        } elsif (m/^include\s+(\S.*\S)$/) {
+           $sfn = $1;
            $sfn =~ s/^\./fsys./;
-           $sfn = "$etc/$sfn" if $sfn !~ m,^/,;
+           $sfn = "$etc/$sfn" unless $sfn =~ m,^/,;
            readfsysfile($sfn);
         } else {
            push @fsys,$_;
        }
     }
-    close $fn or die $!;
+    close $fh or die $!;
 }
 
 sub readfsys ($) {