From 48dfb9bd08f500205bc52fb21a357078db2fd4c8 Mon Sep 17 00:00:00 2001
From: Alexander Hartmaier <abraxxa@cpan.org>
Date: Wed, 27 Apr 2016 16:23:48 +0200
Subject: [PATCH] fix Useless use of greediness modifier '?' in regex

---
 Info/Layer1/Allied.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Info/Layer1/Allied.pm b/Info/Layer1/Allied.pm
index b0271f80..dcc96ccb 100644
--- a/Info/Layer1/Allied.pm
+++ b/Info/Layer1/Allied.pm
@@ -78,7 +78,7 @@ sub model {
 
     my $desc = $allied->description();
 
-    if ( $desc =~ /(AT-\d{4}\S{1}?)/ ) {
+    if ( $desc =~ /(AT-\d{4}\S{1})/ ) {
         return $1;
     }
     return;