Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
L
liblongpath-rsync
Project
Project
Details
Activity
Releases
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
0
Issues
0
List
Board
Labels
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Wiki
Wiki
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
liblongpath
liblongpath-rsync
Commits
3d54c6ec
Commit
3d54c6ec
authored
Jan 22, 2005
by
Wayne Davison
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Moved the /proc/mounts literal string nearer to the top.
parent
71e27c46
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
2 additions
and
1 deletion
+2
-1
mnt-excl
support/mnt-excl
+2
-1
No files found.
support/mnt-excl
View file @
3d54c6ec
...
...
@@ -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 '';
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment