return ();
}
}
- return (@ans);
+ return map {s/([^\s])\s+$/$1/; $_} @ans;
}
#
sub announce
{
my $self = shift;
+ my $origin = shift;
my $line = shift;
my $isolate = shift;
my $to = shift;
sub dx_spot
{
my $self = shift;
+ my $origin = shift;
my $line = shift;
my $isolate = shift;
my ($filter, $hops);
sub wwv
{
my $self = shift;
+ my $origin = shift;
my $line = shift;
my $isolate = shift;
my ($filter, $hops);
sub wcy
{
my $self = shift;
+ my $origin = shift;
my $line = shift;
my $isolate = shift;
my ($filter, $hops);