Corrected regex for CamelCase package names

duckduckgo · Jul 7, 2017 · b2d9e78 · b2d9e78
1 parent 390d577
commit b2d9e78
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/App/DuckPAN/DDG.pm b/lib/App/DuckPAN/DDG.pm
@@ -114,7 +114,7 @@ sub get_blocks_from_current_dir {
 
 		# Check if Perl Package name provided
 		# We don't have Goodie packages with
-		elsif ($arg =~ /^(DDG::(?:Goodie|Spice|Fathead)::)?[A-Z]+[a-z0-9]*?$/) {
+		elsif ($arg =~ /^(DDG::(?:Goodie|Spice|Fathead)::)?[A-Z]+[a-zA-Z0-9]*$/) {
 			push @no_metadata, $arg;
 			$class = $1 ? $arg : "DDG::$type->{name}::$arg";
 		}