Add 'corpus' to the heuristic for demo or test modules
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Tue, 17 May 2016 23:16:35 +0000 (00:16 +0100)
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Tue, 17 May 2016 23:16:35 +0000 (00:16 +0100)
Porting/corelist.pl

index 545a102..448cb9d 100755 (executable)
@@ -99,7 +99,7 @@ find(
         /(\.pm|_pm\.PL)$/ or return;
         /PPPort\.pm$/ and return;
         my $module = $File::Find::name;
-        $module =~ /\b(demo|t|private)\b/ and return;    # demo or test modules
+        $module =~ /\b(demo|t|private|corpus)\b/ and return;    # demo or test modules
         my $version = MM->parse_version($_);
         defined $version or $version = 'undef';
         $version =~ /\d/ and $version = "'$version'";