[ic] usertag passing args by reference (perl newby)

[Stefan Hornburg]

Marco Mescoli wrote:
> And if i want to pass the address of a scratch var and modify the var 
> inside mytag ?

Just pass the name of the scratch variable and use $Scratch to manipulate
it.

> Something like this:
> 
> -------- mytag.tag ------------
> UserTag mytag Order myarg
> UserTag mytag Routine <<EOR
> sub {
>    my $ref = shift;
>    $($ref) = 'bar'; # :-?
>    return;
> }
> EOR

UserTag mytag Order myarg
UserTag mytag Routine <<EOR
sub {
    my $ref = shift;
   
    $Scratch->{$arg} = 'bar';
    return;
}

Regards
          Racke


-- 
LinuXia Systems => http://www.linuxia.de/
Expert Interchange Consulting and System Administration
ICDEVGROUP => http://www.icdevgroup.org/
Interchange Development Team