stop using User in sa

diff --git a/sa b/sa
index 6cacfda6cfebffdf09e8090faefaae8dd5fec0d8..6772c51d0fdf5d4b6c9130fd08081a369a462a29 100755 (executable)
--- a/sa
+++ b/sa
@@ -46,7 +46,7 @@ Display this manual.
 
 
 
-use User;
+#use User;
 use IO::File;
 use vars qw($DEBUG $VERBOSE);
 
@@ -92,7 +92,7 @@ sub parse_config_file {
      }
 }
 
-my $HOME=User->Home;
+my $HOME=$ENV{HOME};
 my $HOSTNAME=qx(hostname);
 $HOSTNAME=~s/\n//g;
 my $CAN_IGNORE_EXTERNALS = 0;