Allow wildcards when searching for processes using files

https://sourceforge.net/tracker/?func=detail&atid=117457&aid=3354129&group_id=17457
This commit is contained in:
Jamie Cameron
2011-07-05 12:05:49 -07:00
parent 27cc6a4e52
commit 5cee0a3985
4 changed files with 7 additions and 7 deletions

View File

@@ -66,8 +66,8 @@ return split(/\s+/, $out);
sub find_file_processes
{
local($out, $files);
$files = join(' ', @_);
$out = `fuser -f $files`;
$files = join(' ', map { quotemeta($_) } map { glob($_) } @_);
$out = &backquote_command("fuser -f $files");
$out =~ s/[^0-9 ]//g;
$out =~ s/^\s+//g; $out =~ s/\s+$//g;
return split(/\s+/, $out);

View File

@@ -116,7 +116,7 @@ return split(/\s+/, $out);
sub find_file_processes
{
local($out, $files);
$files = join(' ', map { quotemeta($_) } @_);
$files = join(' ', map { quotemeta($_) } map { glob($_) } @_);
$out = &backquote_command("fuser $files 2>/dev/null");
$out =~ s/[^0-9 ]//g;
$out =~ s/^\s+//g; $out =~ s/\s+$//g;

View File

@@ -54,8 +54,8 @@ return split(/\s+/, $out);
sub find_file_processes
{
local($out, $files);
$files = join(' ', @_);
$out = `fuser $files 2>/dev/null`;
$files = join(' ', map { quotemeta($_) } map { glob($_) } @_);
$out = &backquote_command("fuser $files 2>/dev/null");
$out =~ s/^\s+//g; $out =~ s/\s+$//g;
return split(/\s+/, $out);
}

View File

@@ -77,8 +77,8 @@ return split(/\s+/, $out);
sub find_file_processes
{
local($out, $files);
$files = join(' ', @_);
$out = `fuser $files 2>/dev/null`;
$files = join(' ', map { quotemeta($_) } map { glob($_) } @_);
$out = &backquote_command("fuser $files 2>/dev/null");
$out =~ s/^\s+//g; $out =~ s/\s+$//g;
return split(/\s+/, $out);
}