# called with : mkBless(\$p->{Vcpeid}{$cpeid}, RepoVData->new);
  sub mkBless($;$) {
    my $targ = shift;
    if (@_) {
      ${$targ} = shift unless blessed $targ;
    }
    \$targ
  }