removed ~ from the end of a PC18

diff --git a/Changes b/Changes
index c53af39d05df3a068ac14a6ddf1a17ecdd2dd70a..557561ee2e8a826a4d5fb5e4a997628f6811fdf1 100644 (file)
--- 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.
 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 c49f953aec4b1327ef889ae28aeeec6c1b10a69c..6df70ad71d8af1776fe9d95a07df036c467c0dff 100644 (file)
--- a/perl/DXProtout.pm
+++ b/perl/DXProtout.pm
@@ -94,7 +94,7 @@ sub pc17
 sub pc18
 {
        my $info = DXCluster::cluster;
 sub pc18
 {
        my $info = DXCluster::cluster;

-       return "PC18^$info^$DXProt::myprot_version^~";
+       return "PC18^$info^$DXProt::myprot_version^";

 }
 
 #
 }
 
 #