--- orig\Everything.pm  2004-12-27 13:17:23.025625000 +0100
+++ new\Everything.pm   2004-12-27 13:20:39.213125000 +0100
@@ -349,6 +349,7 @@
           printLog("Undefined type in unpackVars()");
           return "Error undef type";
       } elsif ($type eq 'H') {
+          $vars={};
           for (split /\Q$split\E/, $vars_str) {
             my ($k,$v)= split /!/, $_, 2;
             for ( $k,$v ) {
@@ -364,6 +365,7 @@
             $vars->{$k} = $v;
           }
       } elsif ($type eq 'A') {
+          $vars=[];
           for (split /\Q$split\E/, $vars_str) {
               s/~(\w\w)/ chr(hex($1)) /ge;
               push @$vars, $_ eq 'U'