X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=sa;fp=sa;h=6772c51d0fdf5d4b6c9130fd08081a369a462a29;hb=bf2ed28e98f69247d9881a08d88f67091c581646;hp=6cacfda6cfebffdf09e8090faefaae8dd5fec0d8;hpb=d7795dea173c63df4cad98b824a5de3a8e5e0d2f;p=bin.git

diff --git a/sa b/sa
index 6cacfda..6772c51 100755
--- 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;