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

[albertel]

albertel		Fri Aug 25 17:25:23 2006 EDT

  Modified files:              
    /loncom	lcuseradd 
  Log:
  - eliminating some syntax warnings
  
  
Index: loncom/lcuseradd
diff -u loncom/lcuseradd:1.38 loncom/lcuseradd:1.39
--- loncom/lcuseradd:1.38	Fri Jul 29 13:33:18 2005
+++ loncom/lcuseradd	Fri Aug 25 17:25:22 2006
@@ -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 @@
 # 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 @@
     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");