- There is no need to load the POSIX module twice

- Dev-Editor also shows the current umask of the process in the about dialogue

diff --git a/modules/Command.pm b/modules/Command.pm
index 4e7e365fb409cf938df686984ae76f9eb6e37c08..117d39cafd69d47506aa9399d7e1c1e8243c81ce 100644 (file)
--- 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>
 # Execute Dev-Editor's commands
 #
 # Author:        Patrick Canterino <patshaping@gmx.net>

-# Last modified: 2004-10-30
+# Last modified: 2004-10-31

 #
 
 use strict;
 #
 
 use strict;


@@ -910,8 +910,6 @@ 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
 
   # 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;
 
   my $uid = POSIX::getuid;
   my $gid = POSIX::getgid;
 


@@ -926,6 +924,10 @@ sub exec_about($$)
 
   $tpl->fillin("USER",getpwuid($uid));
   $tpl->fillin("GROUP",getgrgid($gid));
 
   $tpl->fillin("USER",getpwuid($uid));
   $tpl->fillin("GROUP",getgrgid($gid));

+
+  # Process umask
+
+  $tpl->fillin("UMASK",sprintf("%04o",umask));

  }
  else
  {
  }
  else
  {