Relaxed the parsing for eff and stop

[NDIRC.git] / PA.pm

diff --git a/PA.pm b/PA.pm
index e5eaa6b5f5eff1617fc8ea5e87296fbbb504abe7..2cb498b6e0862f6b0aea3f632a876f449589cf99 100644 (file)
--- 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;