From b2d9e78214acad5d0fdc379782a7401375777ed9 Mon Sep 17 00:00:00 2001 From: Zaahir Moolla Date: Fri, 7 Jul 2017 09:33:28 -0400 Subject: [PATCH] Corrected regex for CamelCase package names --- lib/App/DuckPAN/DDG.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/App/DuckPAN/DDG.pm b/lib/App/DuckPAN/DDG.pm index e9a0782..4f1d91a 100644 --- 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"; }