--- nfo/perl/libs/Data/Rap/Command.pm 2004/06/19 01:50:24 1.9 +++ nfo/perl/libs/Data/Rap/Command.pm 2004/06/20 16:10:05 1.10 @@ -1,7 +1,10 @@ ## ---------------------------------------------------------------------- -## $Id: Command.pm,v 1.9 2004/06/19 01:50:24 joko Exp $ +## $Id: Command.pm,v 1.10 2004/06/20 16:10:05 joko Exp $ ## ---------------------------------------------------------------------- ## $Log: Command.pm,v $ +## Revision 1.10 2004/06/20 16:10:05 joko +## modification to _rapcall: now has "service" to cache target details +## ## Revision 1.9 2004/06/19 01:50:24 joko ## disabled debugging statement ## @@ -321,7 +324,14 @@ return; } + + if (my $service = $args->{service}) { + if ($service eq 'indexTargets') { + $self->indexTargets({ build => 1 }); + } + } + } sub _exit {