From: pcanterino <>
Date: Sat, 30 Oct 2004 17:32:26 +0000 (+0000)
Subject: Because of the ugly behaviour of $(, I'm now using the getgid() function from
X-Git-Tag: version_2_2~17
X-Git-Url: https://git.p6c8.net/devedit.git/commitdiff_plain/4308edd69b75085c3b49f90f260f593783fbc93b

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.
---

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
  {