X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=bin%2Fpod2x;h=1e11c5699d1ac2211b9419654f6a5f4a25421bad;hb=94cf6eb75f11879269c1c6f3dc70547ef414acd6;hp=385c5db0a3cce61492006b23d6c8a69f0b597107;hpb=88d4198ff452581be05e3018b3e23db564545525;p=freeside.git diff --git a/bin/pod2x b/bin/pod2x index 385c5db0a..1e11c5699 100755 --- a/bin/pod2x +++ b/bin/pod2x @@ -30,10 +30,11 @@ foreach my $file ( glob("$site_perl/*/*/*.pm"), glob("$site_perl/bin/*.pod"), glob("./fs_sesmon/FS-SessionClient/*.pm"), - glob("./fs_signup/FS-SignupClient/*.pm"), + #glob("./fs_signup/FS-SignupClient/*.pm"), + glob("./fs_selfservice/FS-SelfService/*.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$/ ) {