Allow wildcards when searching for processes using files

https://sourceforge.net/tracker/?func=detail&atid=117457&aid=3354129&group_id=17457

diff --git a/proc/hpux-lib.pl b/proc/hpux-lib.pl
index c08b3a0..be26e12 100755 (executable)
--- a/proc/hpux-lib.pl
+++ b/proc/hpux-lib.pl
@@ -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);

diff --git a/proc/linux-lib.pl b/proc/linux-lib.pl
index 0e2d513..e6556c1 100755 (executable)
--- a/proc/linux-lib.pl
+++ b/proc/linux-lib.pl
@@ -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;

diff --git a/proc/osf-lib.pl b/proc/osf-lib.pl
index b227d62..7d0d508 100755 (executable)
--- a/proc/osf-lib.pl
+++ b/proc/osf-lib.pl
@@ -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);
 }

diff --git a/proc/sysv-lib.pl b/proc/sysv-lib.pl
index abc5f12..631d49d 100755 (executable)
--- a/proc/sysv-lib.pl
+++ b/proc/sysv-lib.pl
@@ -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);
 }