if :response and :common come in the same import() this will do:

my %seen = ();
my @args = grep { $seen{$_}++; $seen{$_} < 2 } map { /^:response$/ ? ":common" : $_ } @_;


or something like that ;)

too much fwp for you, I think :)


--Geoff

Reply via email to