From: Ivan Kohler <ivan@freeside.biz>
Date: Mon, 19 Jan 2015 13:28:20 +0000 (-0800)
Subject: quiet warning about FS::part_pkg::Import
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=9423ff1142498c28700c2a608e10293e69772e4d

quiet warning about FS::part_pkg::Import
---

diff --git a/FS/FS/part_pkg.pm b/FS/FS/part_pkg.pm
index bac4b8be8..18a065da1 100644
--- a/FS/FS/part_pkg.pm
+++ b/FS/FS/part_pkg.pm
@@ -1964,8 +1964,8 @@ sub _pkgs_sql {
 #false laziness w/part_export & cdr
 my %info;
 foreach my $INC ( @INC ) {
-  warn "globbing $INC/FS/part_pkg/*.pm\n" if $DEBUG;
-  foreach my $file ( glob("$INC/FS/part_pkg/*.pm") ) {
+  warn "globbing $INC/FS/part_pkg/[a-z]*.pm\n" if $DEBUG;
+  foreach my $file ( glob("$INC/FS/part_pkg/[a-z]*.pm") ) {
     warn "attempting to load plan info from $file\n" if $DEBUG;
     $file =~ /\/(\w+)\.pm$/ or do {
       warn "unrecognized file in $INC/FS/part_pkg/: $file\n";