From 4b6ea0ada25839464b9bd7d2eec2e97567ab1626 Mon Sep 17 00:00:00 2001
From: pcanterino <>
Date: Mon, 2 Aug 2004 09:55:53 +0000
Subject: [PATCH] Some small changes

---
 modules/Command.pm     | 4 ++--
 modules/File/Access.pm | 2 +-
 modules/Tool.pm        | 7 +++----
 3 files changed, 6 insertions(+), 7 deletions(-)

diff --git a/modules/Command.pm b/modules/Command.pm
index 8e47163..a25f8f0 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-07-28
+# Last modified: 2004-08-02
 #
 
 use strict;
@@ -772,7 +772,7 @@ sub exec_chprop($$)
    }
    else
    {
-    my @stat     = lstat($physical);
+    my @stat     = stat($physical);
 
     my $mode     = $stat[2];
     my $mode_oct = substr(sprintf("%04o",$mode),-4);
diff --git a/modules/File/Access.pm b/modules/File/Access.pm
index bc1e37d..5bd797c 100644
--- a/modules/File/Access.pm
+++ b/modules/File/Access.pm
@@ -40,7 +40,7 @@ use base qw(Exporter);
 sub chgrp($@)
 {
  my ($group,@files) = @_;
- my $gid = ($group !~ /^\d+$/) ? getgrnam($group): $group;
+ my $gid = ($group !~ /^\d+$/) ? getgrnam($group) : $group;
 
  return unless($gid);
  return chown(-1,$gid,@files);
diff --git a/modules/Tool.pm b/modules/Tool.pm
index d39c477..18d437c 100644
--- a/modules/Tool.pm
+++ b/modules/Tool.pm
@@ -204,11 +204,10 @@ sub file_name($)
 
 # mode_string()
 #
-# Convert a binary file mode string into a human
-# readable string (rwxr-x-r-x)
-# (also supports SetUID, SetGID and Sticky Bits)
+# Convert a file mode number into a human readable string (rwxr-x-r-x)
+# (also supports SetUID, SetGID and Sticky Bit)
 #
-# Params: Binary file mode string
+# Params: File mode number
 #
 # Return: Humand readable mode string
 
-- 
2.34.1