diff options
Diffstat (limited to 'support')
-rwxr-xr-x | support/mnt-excl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/support/mnt-excl b/support/mnt-excl index 993180eb..63d0ad9b 100755 --- a/support/mnt-excl +++ b/support/mnt-excl @@ -20,6 +20,7 @@ use strict; use Cwd 'abs_path'; +my $file = '/proc/mounts'; my $dir = shift || '/'; $dir = abs_path($dir); $dir =~ s#([^/]*)$##; @@ -27,7 +28,7 @@ my $trailing = $1; $trailing = '' if $trailing eq '.' || !-d "$dir$trailing"; $trailing .= '/' if $trailing ne ''; -open(IN, '/proc/mounts') or die $!; +open(IN, $file) or die "Unable to open $file: $!\n"; while (<IN>) { $_ = (split)[1]; next unless s#^\Q$dir$trailing\E##o && $_ ne ''; |