X-Git-Url: https://git.p6c8.net/devedit.git/blobdiff_plain/02321769f658fbe95c046c17f0c5b4de759d282f..4b6ea0ada25839464b9bd7d2eec2e97567ab1626:/modules/Command.pm?ds=sidebyside 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 -# 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);