From 91367351091157a6b2dc887e51e2c5bc2bf093ae Mon Sep 17 00:00:00 2001
From: Michael Andreen <harv@ruin.nu>
Date: Sat, 24 Mar 2012 20:30:38 +0100
Subject: [PATCH] Don't automatically add wildcard at start of shipname for eff
 and stop commands

---
 Commands/PA.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Commands/PA.pm b/Commands/PA.pm
index 2265d3f..0a915fb 100644
--- 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.+$/){
-- 
2.39.2