Upgrade MPIs on linux

This commit is contained in:
Bassem Girgis
2025-03-19 12:53:34 -05:00
parent d29ef955f5
commit a6198ecc7b
5503 changed files with 962014 additions and 56494 deletions

View File

@@ -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>;