--- loncom/loncron	2021/02/02 20:53:05	1.127
+++ loncom/loncron	2024/06/22 14:29:36	1.129
@@ -2,7 +2,7 @@
 
 # Housekeeping program, started by cron, loncontrol and loncron.pl
 #
-# $Id: loncron,v 1.127 2021/02/02 20:53:05 raeburn Exp $
+# $Id: loncron,v 1.129 2024/06/22 14:29:36 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -42,12 +42,10 @@ use IO::File;
 use IO::Socket;
 use HTML::Entities;
 use Getopt::Long;
-use GDBM_File;
+use GDBM_File qw(GDBM_READER);
 use Storable qw(thaw);
 use File::ReadBackwards;
 use File::Copy;
-use GDBM_File qw(GDBM_READER);
-use Storable qw(thaw nfreeze);
 use Sys::Hostname::FQDN();
 
 #globals
@@ -1597,7 +1595,7 @@ sub main () {
     my $wwwid=getpwnam('www');
     if ($wwwid!=$<) {
 	print("User ID mismatch. This program must be run as user 'www'.\n");
-	my $emailto="$perlvar{'lonAdmEMail'},$perlvar{'lonSysEMail'}";
+	my $emailto="$perlvar{'lonAdmEMail'} $perlvar{'lonSysEMail'}";
 	my $subj="LON: $perlvar{'lonHostID'} User ID mismatch";
 	system("echo 'User ID mismatch. loncron must be run as user www.' |".
                " mail -s '$subj' $emailto > /dev/null");