- The abort() routine from the Output module is now also able to display a link

[devedit.git] / modules / Tool.pm

diff --git a/modules/Tool.pm b/modules/Tool.pm
index 8d578efb55547b0a04e12fb00fe88436e4c67a2a..2d044e0de257baad669c5789ac9704083e367a92 100644 (file)
--- a/modules/Tool.pm
+++ b/modules/Tool.pm
@@ -6,7 +6,7 @@ package Tool;
 # Some shared sub routines
 #
 # Author:        Patrick Canterino <patshaping@gmx.net>
 # Some shared sub routines
 #
 # Author:        Patrick Canterino <patshaping@gmx.net>

-# Last modified: 2004-11-04
+# Last modified: 2004-11-13

 #
 
 use strict;
 #
 
 use strict;


@@ -64,11 +64,13 @@ sub check_path($$)
  $first = abs_path($first);
  $path  = $first."/".$last;
 
  $first = abs_path($first);
  $path  = $first."/".$last;
 

- $path = File::Spec->canonpath($path);
+ $first = File::Spec->canonpath($first);
+ $path  = File::Spec->canonpath($path);

 
  # Check if the path is above the root directory
 
  return if(index($path,$root) == -1);
 
  # Check if the path is above the root directory
 
  return if(index($path,$root) == -1);

+ return if($first eq $root && $last =~ m!^(/|\\)?\.\.(/|\\)?$!);

 
  # Create short path name
 
 
  # Create short path name