From: nwf <nwf@cs.jhu.edu>
Date: Wed, 27 Aug 2008 06:38:47 +0000 (-0400)
Subject: Minor stylistic change in HuffmanCoder
X-Git-Url: https://hydra-www.ietfng.org/gitweb/?a=commitdiff_plain;h=f86e9689cd59d4f9947ed30b77f0bd225e851da4;p=instirc

Minor stylistic change in HuffmanCoder

darcs-hash:20080827063847-4d648-77e850ce0e433dc8b59a8d12e2a72b04a2eea706.gz
---

diff --git a/HuffmanCoder.pm b/HuffmanCoder.pm
index 1599f5c..c8936b3 100644
--- a/HuffmanCoder.pm
+++ b/HuffmanCoder.pm
@@ -125,6 +125,7 @@ sub _is_char($) {
 
 sub decode($$) {
   my ($self, $inst) = @_;
+  my $ccr = $$self{'ccr'};
 
   my $result = "";
   while ($inst ne "") {
@@ -132,7 +133,7 @@ sub decode($$) {
     while (!_is_char($tbl)) {
       my $code = substr($inst, 0, 1);
       $inst = substr($inst, 1);
-      $tbl = _decode_char($$self{'ccr'}, $code, $tbl);
+      $tbl = _decode_char($ccr, $code, $tbl);
     }
     $result .= $tbl;
   }