From ee2055d94dacff3fa49097a0a2b3a1347cdbb9de Mon Sep 17 00:00:00 2001
From: pcanterino <>
Date: Fri, 7 Jan 2005 12:32:58 +0000
Subject: [PATCH] Small cleanup

---
 modules/Tool.pm | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/modules/Tool.pm b/modules/Tool.pm
index 0b1159d..9ba39c2 100644
--- a/modules/Tool.pm
+++ b/modules/Tool.pm
@@ -76,7 +76,9 @@ sub check_path($$)
   # Windows allows to go upwards in a path using things like
   # "..." and "...." and so on
 
-  for(my $x=0;$x<length($last)-1;$x++)
+  my $count = length($last)-1;
+
+  for(my $x=0;$x<$count;$x++)
   {
    unless($first =~ m!^[a-z]{1}:(/|\\)$!i)
    {
@@ -87,10 +89,7 @@ sub check_path($$)
   $last = '';
  }
 
- $path  = $first.'/'.$last;
-
- $first = File::Spec->canonpath($first);
- $path  = File::Spec->canonpath($path);
+ $path = File::Spec->canonpath($first.'/'.$last);
 
  # Check if the path is above the root directory
 
-- 
2.34.1