Minor stylistic change in HuffmanCoder

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

diff --git a/HuffmanCoder.pm b/HuffmanCoder.pm
index 1599f5c188699fbcffa816d6a85286653c72d37b..c8936b327a50c0207b8565b88e16c8f793ea996e 100644 (file)
--- 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;
   }