The Samba-Bugzilla – Attachment 542 Details for
Bug 1455
Make -x skip a "bind" mount point to the same filesystem
Home
|
New
|
Browse
|
Search
|
[?]
|
Reports
|
Requests
|
Help
|
New Account
|
Log In
[x]
|
Forgot Password
Login:
[x]
Improved mntexcl perl script
mntexcl (text/plain), 407 bytes, created by
Wayne Davison
on 2004-06-10 15:35:40 UTC
(
hide
)
Description:
Improved mntexcl perl script
Filename:
MIME Type:
Creator:
Wayne Davison
Created:
2004-06-10 15:35:40 UTC
Size:
407 bytes
patch
obsolete
>#!/usr/bin/perl -w > >use strict; > >my $dir = shift; >$dir = $ENV{'PWD'} . '/' . $dir unless $dir =~ m#^/#; >$dir =~ s#([^/]*)$##; >my $trailing = $1; >$trailing = '' if $trailing eq '.' || !-d "$dir$trailing"; >$trailing .= '/' if $trailing ne ''; > >open(IN, '/proc/mounts') or die $!; >while (<IN>) { > $_ = (split)[1]; > next unless s#^\Q$dir$trailing\E##o && $_ ne ''; > print "/$trailing$_\n"; >} >close IN;
<b>You cannot view the attachment while viewing its details because your browser does not support IFRAMEs. <a href="attachment.cgi?id=542">View the attachment on a separate page</a>.</b>
View Attachment As Raw
Actions:
View
Attachments on
bug 1455
: 542