From 4308edd69b75085c3b49f90f260f593783fbc93b Mon Sep 17 00:00:00 2001
From: pcanterino <>
Date: Sat, 30 Oct 2004 17:32:26 +0000
Subject: [PATCH] Because of the ugly behaviour of $(, I'm now using the
 getgid() function from the POSIX module to detect the process GID. For being
 consistent, I'm now using getuid() (also from the POSIX module) to detect the
 process UID.

---
 modules/Command.pm | 15 ++++++++++-----
 1 file changed, 10 insertions(+), 5 deletions(-)

diff --git a/modules/Command.pm b/modules/Command.pm
index 451a183..4e7e365 100644
--- a/modules/Command.pm
+++ b/modules/Command.pm
@@ -6,7 +6,7 @@ package Command;
 # Execute Dev-Editor's commands
 #
 # Author:        Patrick Canterino <patshaping@gmx.net>
-# Last modified: 2004-10-27
+# Last modified: 2004-10-30
 #
 
 use strict;
@@ -910,17 +910,22 @@ sub exec_about($$)
   # Dev-Editor is running on a system which allows users and groups
   # So we display the user and the group of our process
 
+  require POSIX;
+
+  my $uid = POSIX::getuid;
+  my $gid = POSIX::getgid;
+
   $tpl->parse_if_block("users",1);
 
   # ID's of user and group
 
-  $tpl->fillin("UID",$<);
-  $tpl->fillin("GID",$();
+  $tpl->fillin("UID",$uid);
+  $tpl->fillin("GID",$gid);
 
   # Names of user and group
 
-  $tpl->fillin("USER",getpwuid($<));
-  $tpl->fillin("GROUP",getgrgid($());
+  $tpl->fillin("USER",getpwuid($uid));
+  $tpl->fillin("GROUP",getgrgid($gid));
  }
  else
  {
-- 
2.34.1