From: nwf <nwf@cs.jhu.edu>
Date: Mon, 8 Jun 2009 16:47:36 +0000 (-0400)
Subject: Eliminate instance_suffix support; always space pad before IRCIE tag
X-Git-Url: https://hydra-www.ietfng.org/gitweb/?a=commitdiff_plain;h=4e95d3fc457c0bb0d663b5ec49af32a8751aa3ec;p=instirc

Eliminate instance_suffix support; always space pad before IRCIE tag

Ignore-this: e73df61b19cd6bebf06710e1ec46d3e8

darcs-hash:20090608164736-4d648-eb05a3936ae3e47ef25933417953752aae4babde.gz
---

diff --git a/Definitions.pm b/Definitions.pm
index fb808f7..e21447d 100644
--- a/Definitions.pm
+++ b/Definitions.pm
@@ -56,8 +56,6 @@ our $instance_huffman_table1 = [
   ]
 ];
 
-our $instance_suffix = ""; # Oh backtick, how we miss thee
-
 #################################################################
 
 our $MSCC_TYPE_AA = 0;
diff --git a/IrssiInterface.pl b/IrssiInterface.pl
index 05ccd24..a75f9b0 100644
--- a/IrssiInterface.pl
+++ b/IrssiInterface.pl
@@ -37,7 +37,7 @@ require Instance::MasterCoder;
 require Instance::HuffmanCoder;
 use Instance::Definitions qw( %known_types
                     @debug_code_chars @default_code_chars
-                    $instance_huffman_table1 $instance_suffix
+                    $instance_huffman_table1
                     $MESSAGE_START $MESSAGE_END );
 
 my $mc_dbg = Instance::MasterCoder->new(\@debug_code_chars,   $MESSAGE_START, $MESSAGE_END);
@@ -144,8 +144,6 @@ sub demangle_and_check_routes($$$) {
   }
 
   if ($res and defined $instance_label) {
-    $rest =~ s/^(.*)$instance_suffix$/$1/;
-
     # Find window item given server and name
     my $witem = $srv->window_item_find($channame);
 
@@ -335,7 +333,7 @@ sub generate_outgoing($$) {
                            $known_types{'InstanceLabelHuffman1'},
                            $instlabel)]);
 
-    $text = $text . $instance_suffix . $framedlabel;
+    $text = $text . " ". $framedlabel;
 }
 
 my $suppress_out = 0;