X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=PA.pm;fp=PA.pm;h=2cb498b6e0862f6b0aea3f632a876f449589cf99;hb=955331b641004e0a344b9c0d031d19288641a78c;hp=e5eaa6b5f5eff1617fc8ea5e87296fbbb504abe7;hpb=5362383a5ec27d3bde7b97794450966906c1a42b;p=NDIRC.git diff --git a/PA.pm b/PA.pm index e5eaa6b..2cb498b 100644 --- a/PA.pm +++ b/PA.pm @@ -83,7 +83,7 @@ sub checkGal { sub shipEff { my ($msg,$command) = @_; my ($amount,$ship,$value); - if($msg =~ /^(-?\d+(?:\.\d+)?[hkMG]?) (\w+)$/){ + if($msg =~ /^(-?\d+(?:\.\d+)?[hkMG]?) (\w+)/){ if ($command eq 'veff'){ $value = parseValue($1); $value *= -1.5 if $value < 0; @@ -140,7 +140,7 @@ FROM ship_stats WHERE name ILIKE ? sub shipStop { my ($msg,$command) = @_; my ($amount,$ship,$value); - if($msg =~ /^(-?\d+(?:\.\d+)?[hkMG]?) (\w+)$/){ + if($msg =~ /^(-?\d+(?:\.\d+)?[hkMG]?) (\w+)/){ if ($command eq 'vstop'){ $value = parseValue($1); $value *= -1.5 if $value < 0;