From acd502d5800e0e430c30bc97091c1fdfefa266e1 Mon Sep 17 00:00:00 2001
From: pcanterino <>
Date: Sat, 17 Jul 2004 10:50:46 +0000
Subject: [PATCH] Small enhancement for devedit_reload()

---
 modules/Tool.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/modules/Tool.pm b/modules/Tool.pm
index 785a02e..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;
@@ -129,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
-- 
2.34.1