Fix up special sub detector for Perl 6 heuristics
Fix up special sub detector for Perl 6 heuristics

sol/pygments,zmughal/pygments-mirror,sol/pygments,zmughal/pygments-mirror,zmughal/pygments-mirror,sol/pygments,zmughal/pygments-mirror,sol/pygments,sol/pygments,zmughal/pygments-mirror,sol/pygments,sol/pygments,zmughal/pygments-mirror,zmughal/pygments-mirror,sol/pygments,sol/pygments,zmughal/pygments-mirror,zmughal/pygments-mirror,sol/pygments,zmughal/pygments-mirror,zmughal/pygments-mirror,sol/pygments,zmughal/pygments-mirror,zmughal/pygments-mirror,zmughal/pygments-mirror,sol/pygments,sol/pygments,zmughal/pygments-mirror,sol/pygments,zmughal/pygments-mirror,zmughal/pygments-mirror,zmughal/pygments-mirror,zmughal/pygments-mirror