--- nfo/perl/libs/Data/Rap/Command.pm 2003/05/13 07:52:14 1.7 +++ nfo/perl/libs/Data/Rap/Command.pm 2004/06/07 16:45:56 1.8 @@ -1,7 +1,10 @@ ## ---------------------------------------------------------------------- -## $Id: Command.pm,v 1.7 2003/05/13 07:52:14 joko Exp $ +## $Id: Command.pm,v 1.8 2004/06/07 16:45:56 joko Exp $ ## ---------------------------------------------------------------------- ## $Log: Command.pm,v $ +## Revision 1.8 2004/06/07 16:45:56 joko +## now propagates args to "rapcall method" +## ## Revision 1.7 2003/05/13 07:52:14 joko ## enhanced: *hierarchical* containers for context handling ## making methods from foreign context(s) available @@ -306,10 +309,10 @@ # V1 - no arguments were being propagated #$self->{$refkey}->$method(); # V2 - trying this.... - $self->{$refkey}->$method(); + $self->{$refkey}->$method($args->{args}); } elsif (my $ref = $self->getInstance()) { - $ref->$method(); + $ref->$method($args->{args}); } return;