Do not allow removing or renaming the root directory

[devedit.git] / modules / Tool.pm

diff --git a/modules/Tool.pm b/modules/Tool.pm
index 1bc020d2b3fcdb0dc53a9888ff4259b245f8ef9f..840c13433085250eca4bf9fdad937486ff9a8633 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>
-# Last modified: 2004-07-12
+# Last modified: 2004-07-17
 #
 
 use strict;
@@ -30,7 +30,6 @@ use base qw(Exporter);
              devedit_reload
              equal_url
              file_name
-             query_string
              upper_path);
 
 # check_path()
@@ -130,14 +129,14 @@ sub devedit_reload($)
   # SSL encrypted HTTP (HTTPS)
 
   $protocol = "https";
-  $port     = ($ENV{'SERVER_PORT'} == 443) ? "" : ":".$ENV{'SERVER_PORT'};
+  $port     = ":".$ENV{'SERVER_PORT'} if($ENV{'SERVER_PORT'} != 443);
  }
  else
  {
   # Simple HTTP
 
   $protocol = "http";
-  $port     = ($ENV{'SERVER_PORT'} == 80)  ? "" : ":".$ENV{'SERVER_PORT'};
+  $port     = ":".$ENV{'SERVER_PORT'} if($ENV{'SERVER_PORT'} != 80);
  }
 
  # The following code is grabbed from Template::_query of