X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=site_perl%2FUID.pm;h=b4486c1e861f175c078bb986530ce3ce719449ac;hb=05c60524e89b7b0f0f70a531c7b7f56db45a3d9d;hp=156bd30248d8db834d5854cafe60029f304b19f9;hpb=57c5b4de544c1609597e568da88195290eeef4c3;p=freeside.git

diff --git a/site_perl/UID.pm b/site_perl/UID.pm
index 156bd3024..b4486c1e8 100644
--- a/site_perl/UID.pm
+++ b/site_perl/UID.pm
@@ -200,7 +200,7 @@ Swaps real and effective UIDs.
 =cut
 
 sub swapuid {
-  ($<,$>) = ($>,$<);
+  ($<,$>) = ($>,$<) if $< != $>;
 }
 
 =item getsecrets [ USER ]
@@ -241,7 +241,7 @@ coderef into the hash %FS::UID::callback :
 
 =head1 VERSION
 
-$Id: UID.pm,v 1.6 1998-11-15 05:27:48 ivan Exp $
+$Id: UID.pm,v 1.8 1999-02-23 07:23:23 ivan Exp $
 
 =head1 BUGS
 
@@ -287,7 +287,13 @@ inlined suidsetup
 ivan@sisd.com 98-sep-12
 
 $Log: UID.pm,v $
-Revision 1.6  1998-11-15 05:27:48  ivan
+Revision 1.8  1999-02-23 07:23:23  ivan
+oops, don't comment out &swapuid in &adminsuidsetup!
+
+Revision 1.7  1999/01/18 09:22:40  ivan
+changes to track email addresses for email invoicing
+
+Revision 1.6  1998/11/15 05:27:48  ivan
 bugfix for new configuration layout
 
 Revision 1.5  1998/11/15 00:51:51  ivan