From 5d97440acfd02dd482d9b87d8a86521b013aea46 Mon Sep 17 00:00:00 2001
From: pcanterino <>
Date: Sat, 23 Jul 2005 16:44:43 +0000
Subject: [PATCH 1/1] Restored the version of check_path() found in revision
 1.34 of Tool.pm

---
 modules/Tool.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/modules/Tool.pm b/modules/Tool.pm
index 3ef4a10..16d5d72 100644
--- a/modules/Tool.pm
+++ b/modules/Tool.pm
@@ -68,8 +68,9 @@ sub check_path($$)
  $first    = abs_path($first);
 
  my $last  = file_name($path);
+ $last     = '' if($last eq '.');
 
- if(-d $first.'/'.$last && (not -l $first.'/'.$last) && -r $first.'/'.$last && -x $first.'/'.$last)
+ if($last eq '..' || ($^O eq 'MSWin32' && $last =~ m!^\.\.\.+$!))
  {
   $first = abs_path($first.'/'.$last);
   $last  = '';
-- 
2.34.1