15 day open invoice reports for qis

[freeside.git] / bin / pod2x

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"),
 ) {
-  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$/ ) {