X-Git-Url: https://git.p6c8.net/devedit.git/blobdiff_plain/d1804166ad8a4bf5e932ee792c46ea8ecc78a0e6..6a0432ae8e83df713006409cf8ba6b673ad074e5:/modules/Tool.pm

diff --git a/modules/Tool.pm b/modules/Tool.pm
index 1f72b75..acc4722 100644
--- a/modules/Tool.pm
+++ b/modules/Tool.pm
@@ -6,7 +6,7 @@ package Tool;
 # Some shared sub routines
 #
 # Author:        Patrick Canterino <patrick@patshaping.de>
-# Last modified: 2005-01-08
+# Last modified: 2005-02-12
 #
 
 use strict;
@@ -83,7 +83,7 @@ sub check_path($$)
  my $short_path = substr($path,length($root));
  $short_path =~ tr!\\!/!;
  $short_path = '/'.$short_path if($short_path !~ m!^/!);
- $short_path = $short_path.'/' if($short_path !~ m!/$! && -d $path);
+ $short_path = $short_path.'/' if($short_path !~ m!/$! && -d $path && not -l $path);
 
  return ($path,$short_path);
 }
@@ -272,7 +272,8 @@ sub mode_string($)
 
 # upper_path()
 #
-# Cut away the last part of a path
+# Remove the last part of a path
+# (the resulting path contains a trailing slash)
 #
 # Params: Path
 #