Upgrade macos
This commit is contained in:
@@ -1,6 +1,9 @@
|
||||
#! /usr/bin/perl
|
||||
# -*- Mode: perl; -*-
|
||||
#
|
||||
##
|
||||
## Copyright (C) by Argonne National Laboratory
|
||||
## See COPYRIGHT in top-level directory
|
||||
##
|
||||
|
||||
# Kill all processes running a specified command
|
||||
#
|
||||
# Many systems also have the "killall" command; this should be used instead
|
||||
@@ -93,7 +96,7 @@ while (<FD>) {
|
||||
my $procfile = "/proc/$pid/cmdline";
|
||||
print "Looking for $procfile\n" if $debug;
|
||||
# We *CANNOT USE* -s with a file in /proc because -s filename returns
|
||||
# false alwyas ! (BUG BUG BUG). Instead, we try to open and read from it
|
||||
# false always ! (BUG BUG BUG). Instead, we try to open and read from it
|
||||
$rc = open PFD, "<$procfile";
|
||||
if ($rc) {
|
||||
my $cmdline = <PFD>;
|
||||
|
||||
Reference in New Issue
Block a user