Select Code to Download

sub gettag {
        # ...
...
        # ... end of extract ...
        # ...
}

sub PutEnvelope {
        # store "ignored" outer tag for later use by puttag
...
        $eref -> { $envtag }{ ASSMNTS } = $tref -> { ASSMNTS }; # enve
+lope tags must preserve assignments
        delete $eref -> { $; }; # replace any $; at same level.
}