| # | Line 246 | Line 246 | sub _calltag { | |
|---|---|---|
| 246 | ||
| 247 | if ( $self->{groupchecker}->status() || | |
| 248 | ( $self->{tagcontainer}->inquiregroup($tagroutine)) ) { | |
| 249 | < | $rt=$self->{tagcontainer}->getroutine($tagroutine); |
| 249 | > | ($rt,$obj)=$self->{tagcontainer}->getroutine($tagroutine); |
| 250 | if ( $rt ne "" ) { | |
| 251 | + | if ( ! defined $obj ) { |
| 252 | &{$rt}( $self->{allw},@_); | |
| 253 | < | $found=1; |
| 253 | > | } |
| 254 | > | else { |
| 255 | > | &{$rt}( $obj,@_); |
| 256 | > | } |
| 257 | > | $found=1; |
| 258 | } | |
| 259 | } | |
| 260 | ||
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |