--- loncom/Attic/lcuseradd	2005/07/29 17:33:18	1.38
+++ loncom/Attic/lcuseradd	2006/08/25 21:25:22	1.39
@@ -6,7 +6,7 @@
 #             with adding a user with filesystem privileges (e.g. author)
 #
 #
-# $Id: lcuseradd,v 1.38 2005/07/29 17:33:18 raeburn Exp $
+# $Id: lcuseradd,v 1.39 2006/08/25 21:25:22 albertel Exp $
 ###
 
 ###############################################################################
@@ -121,10 +121,6 @@ delete @ENV{qw(IFS CDPATH ENV BASH_ENV)}
 # Do not print error messages.
 my $noprint=1;
 
-#  Error file:
-
-my $error_file;			# This is either the error file name or undef.
-
 print "In lcuseradd\n" unless $noprint;
 
 # ----------------------------- Make sure this process is running from user=www
@@ -357,7 +353,7 @@ if (-e '/var/run/httpd.pid') {
     open(PID,'/var/run/httpd.pid');
     my $pid=<PID>;
     close(PID);
-    my  $pid=~ /(\D+)/;
+    $pid=~ /(\D+)/;
     my $safepid = $1;
     if ($pid) {
 	system('kill','-USR1',"$safepid");