# 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";
}
} 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 ($) {