Don't automatically add wildcard at start of shipname for eff and stop commands

diff --git a/Commands/PA.pm b/Commands/PA.pm
index 2265d3f1da8ea343b6e8972214d6ba841cc98893..0a915fb00daae0db283469671b8ebb2be43066ea 100644 (file)
--- a/Commands/PA.pm
+++ b/Commands/PA.pm
@@ -223,10 +223,10 @@ WHERE ps.tick = $1 AND trunc(2000.0*$2*$3/ps.value)::int = $4
 my $eff = class extends NDIRC::Command {
        use ND::Include;
        method execute($c,$msg) {
-               my ($amount,$ship,$target) = $msg =~ /^(-?\d+(?:\.\d+)?[hkMG]?) (\w+)(?: (\w+))?/
+               my ($amount,$ship,$target) = $msg =~ /^(-?\d+(?:\.\d+)?[hkMG]?) ([\w\%]+)(?: (\w+))?/
                        or die 'ARGS';
 
-               $ship = "\%$ship\%";
+               $ship = "$ship\%";
                $target //= '%';
                my $value;
                if ($self->name =~ /^v.+$/){