pod build fix thanks to Stephen Bechard <steve@destek.net>

diff --git a/Makefile b/Makefile
index 2937b20..66c83a0 100644 (file)
--- a/Makefile
+++ b/Makefile
@@ -76,6 +76,7 @@ htmlman:
        [ -e ./httemplate/docs/man/bin ] || mkdir httemplate/docs/man/bin
        [ -e ./httemplate/docs/man/FS ] || mkdir httemplate/docs/man/FS
        [ -e ./httemplate/docs/man/FS/UI ] || mkdir httemplate/docs/man/FS/UI
        [ -e ./httemplate/docs/man/bin ] || mkdir httemplate/docs/man/bin
        [ -e ./httemplate/docs/man/FS ] || mkdir httemplate/docs/man/FS
        [ -e ./httemplate/docs/man/FS/UI ] || mkdir httemplate/docs/man/FS/UI

+       [ -e ./httemplate/docs/man/FS/part_export ] || mkdir httemplate/docs/man/FS/part_export

        [ -e DONT_REBUILD_DOCS ] || bin/pod2x
 
 forcehtmlman:
        [ -e DONT_REBUILD_DOCS ] || bin/pod2x
 
 forcehtmlman:


@@ -83,6 +84,7 @@ forcehtmlman:
        [ -e ./httemplate/docs/man/bin ] || mkdir httemplate/docs/man/bin
        [ -e ./httemplate/docs/man/FS ] || mkdir httemplate/docs/man/FS
        [ -e ./httemplate/docs/man/FS/UI ] || mkdir httemplate/docs/man/FS/UI
        [ -e ./httemplate/docs/man/bin ] || mkdir httemplate/docs/man/bin
        [ -e ./httemplate/docs/man/FS ] || mkdir httemplate/docs/man/FS
        [ -e ./httemplate/docs/man/FS/UI ] || mkdir httemplate/docs/man/FS/UI

+       [ -e ./httemplate/docs/man/FS/part_export ] || mkdir httemplate/docs/man/FS/part_export

        bin/pod2x
 
 install-docs: docs
        bin/pod2x
 
 install-docs: docs

diff --git a/bin/pod2x b/bin/pod2x
index 385c5db..46ccc77 100755 (executable)
--- a/bin/pod2x
+++ b/bin/pod2x
@@ -33,7 +33,7 @@ foreach my $file (
   glob("./fs_signup/FS-SignupClient/*.pm"),
   glob("./fs_selfadmin/FS-MailAdminServer/*.pm"),
 ) {
   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$/ ) {
   #$file =~ /\/([\w\-]+)\.pm$/ or die "oops file $file";
   my $name;
   if ( $file =~ /fs_\w+\/FS\-\w+\/(.*)\.pm$/ ) {