[LON-CAPA-cvs] cvs: loncom / loncron

[raeburn]

raeburn		Thu Oct 25 02:48:56 2018 EDT

  Modified files:              
    /loncom	loncron 
  Log:
  - Dereference hashref.
  
  
Index: loncom/loncron
diff -u loncom/loncron:1.108 loncom/loncron:1.109
--- loncom/loncron:1.108	Wed Aug  8 11:49:48 2018
+++ loncom/loncron	Thu Oct 25 02:48:56 2018
@@ -2,7 +2,7 @@
 
 # Housekeeping program, started by cron, loncontrol and loncron.pl
 #
-# $Id: loncron,v 1.108 2018/08/08 11:49:48 raeburn Exp $
+# $Id: loncron,v 1.109 2018/10/25 02:48:56 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1057,8 +1057,8 @@
                             if ($sslrem{$host}) {
                                 if (ref($pids_by_host{$host}) eq 'HASH') {
                                     if (ref($pids_by_host{$host}{'insecure'}) eq 'HASH') {
-                                        if (keys($pids_by_host{$host}{'insecure'})) {
-                                            foreach my $pid (keys($pids_by_host{$host}{'insecure'})) {
+                                        if (keys(%{$pids_by_host{$host}{'insecure'}})) {
+                                            foreach my $pid (keys(%{$pids_by_host{$host}{'insecure'}})) {
                                                 if (open(PIPE,"ps -o ppid= -p $pid |")) {
                                                     my $ppid = <PIPE>;
                                                     chomp($ppid);