From 1479f550842390ca770899e5cf1c6ce79087fe82 Mon Sep 17 00:00:00 2001
From: djk <djk>
Date: Thu, 4 Nov 1999 16:06:17 +0000
Subject: [PATCH 1/1] removed ~ from the end of a PC18

---
 Changes           | 2 ++
 perl/DXProtout.pm | 2 +-
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/Changes b/Changes
index c53af39d..557561ee 100644
--- a/Changes
+++ b/Changes
@@ -1,3 +1,5 @@
+04Nov99=======================================================================
+1. Removed ~ from the end of the PC18.
 03Nov99=======================================================================
 1. Simplified command caching so it uses anonymous subroutines, you should
 also get error messages back on the console now when developing.
diff --git a/perl/DXProtout.pm b/perl/DXProtout.pm
index c49f953a..6df70ad7 100644
--- a/perl/DXProtout.pm
+++ b/perl/DXProtout.pm
@@ -94,7 +94,7 @@ sub pc17
 sub pc18
 {
 	my $info = DXCluster::cluster;
-	return "PC18^$info^$DXProt::myprot_version^~";
+	return "PC18^$info^$DXProt::myprot_version^";
 }
 
 #
-- 
2.43.0