glob("./fs_signup/FS-SignupClient/*.pm"),
glob("./fs_selfadmin/FS-MailAdminServer/*.pm"),
) {
- next if $file =~ /^blib\//;
+ next if $file =~ /(^|\/)blib\//;
#$file =~ /\/([\w\-]+)\.pm$/ or die "oops file $file";
my $name;
if ( $file =~ /fs_\w+\/FS\-\w+\/(.*)\.pm$/ ) {