From: Don Armstrong <don@donarmstrong.com>
Date: Wed, 22 Feb 2006 10:08:58 +0000 (+0000)
Subject: stop using User in sa
X-Git-Url: https://git.donarmstrong.com/?p=bin.git;a=commitdiff_plain;h=bf2ed28e98f69247d9881a08d88f67091c581646

stop using User in sa
---

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;