From: pcanterino <>
Date: Fri, 7 Jan 2005 12:32:58 +0000 (+0000)
Subject: Small cleanup
X-Git-Tag: version_2_3~2
X-Git-Url: https://git.p6c8.net/devedit.git/commitdiff_plain/ee2055d94dacff3fa49097a0a2b3a1347cdbb9de?ds=inline

Small cleanup
---

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