Don't use bareword file handles

dbackup

@@ -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