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'})) { ...@@ -340,9 +340,9 @@ if (defined($optctl{'exclude-fs-type'})) {
if (@{$config{'exclude-fs-type'}} > 0) { if (@{$config{'exclude-fs-type'}} > 0) {
# Pull in mounts # Pull in mounts
open(MOUNTS, "< /proc/mounts") open(my $fh,"<","/proc/mounts")
or die "ERROR: Failed to open '/proc/mounts': $!"; or die "ERROR: Failed to open '/proc/mounts': $!";
while (my $line = <MOUNTS>) { while (my $line = <$fh>) {
chomp($line); chomp($line);
# Split off items we need # Split off items we need
my (undef,$path,$type) = split(/\s+/,$line); my (undef,$path,$type) = split(/\s+/,$line);
...@@ -353,7 +353,7 @@ if (@{$config{'exclude-fs-type'}} > 0) { ...@@ -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 # Look for parallel versions of the compression program we going to use
......
Supports Markdown
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