X-Git-Url: https://git.p6c8.net/devedit.git/blobdiff_plain/94c8a9b0ec83b96ea5f6f23059aeafbc8c5122e1..7ccfda558e4118708d93bde4098fc1552b03a545:/modules/Tool.pm?ds=inline

diff --git a/modules/Tool.pm b/modules/Tool.pm
index 1bc020d..840c134 100644
--- 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