X-Git-Url: https://mattmccutchen.net/rsync/rsync.git/blobdiff_plain/4c599711942edaad7c69f6e19387729586e8bbea..f2ae9e8583d289ed876c3666bd533dba13ffbfb8:/support/mnt-excl diff --git a/support/mnt-excl b/support/mnt-excl index 7597f63c..63d0ad9b 100755 --- a/support/mnt-excl +++ b/support/mnt-excl @@ -8,6 +8,7 @@ # # mnt-excl /dir | rsync --exclude-from=- ... /dir /dest/ # mnt-excl /dir/ | rsync --exclude-from=- ... /dir/ /dest/ +# ssh host mnt-excl /dir | rsync --exclude-from=- ... host:/dir /dest/ # # Imagine that /dir/foo is a mount point: the first invocation of # mnt-excl would have output /dir/foo, while the second would have @@ -19,6 +20,7 @@ use strict; use Cwd 'abs_path'; +my $file = '/proc/mounts'; my $dir = shift || '/'; $dir = abs_path($dir); $dir =~ s#([^/]*)$##; @@ -26,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 () { $_ = (split)[1]; next unless s#^\Q$dir$trailing\E##o && $_ ne '';