--- loncom/pwchange	2001/11/15 18:22:04	1.4
+++ loncom/pwchange	2001/11/16 06:10:41	1.5
@@ -7,7 +7,7 @@
 # YEAR=2001
 # 10/23,11/13,11/15 Scott Harrison
 #
-# $Id: pwchange,v 1.4 2001/11/15 18:22:04 harris41 Exp $
+# $Id: pwchange,v 1.5 2001/11/16 06:10:41 harris41 Exp $
 ###
 
 use strict;
@@ -16,9 +16,9 @@ use strict;
 $ENV{'PATH'}='/bin:/usr/bin'; # Nullify path information.
 delete @ENV{qw(IFS CDPATH ENV BASH_ENV)}; # nullify potential taints
 
-# ----------------------------- Make sure this process is running from user=www
+# ---------------------------- Make sure this process is running from user=root
 my $wwwid=getpwnam('www');
-if ($wwwid!=$<) {
+if (0!=$<) {
    exit 1;
 }
 # ----------------------------------------------- If not running setuid as root