Commit d2298f0b authored by Nigel Kukard's avatar Nigel Kukard
Browse files

Don't use bareword file handles

parent 114d194d
......@@ -340,9 +340,9 @@ if (defined($optctl{'exclude-fs-type'})) {
if (@{$config{'exclude-fs-type'}} > 0) {
# Pull in mounts
open(MOUNTS, "< /proc/mounts")
open(my $fh,"<","/proc/mounts")
or die "ERROR: Failed to open '/proc/mounts': $!";
while (my $line = <MOUNTS>) {
while (my $line = <$fh>) {
chomp($line);
# Split off items we need
my (undef,$path,$type) = split(/\s+/,$line);
......@@ -353,7 +353,7 @@ if (@{$config{'exclude-fs-type'}} > 0) {
}
}
}
close(MOUNTS);
close($fh);
}
# Look for parallel versions of the compression program we going to use
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment