diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2015-01-19 05:28:20 -0800 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2015-01-19 05:28:20 -0800 |
| commit | 9423ff1142498c28700c2a608e10293e69772e4d (patch) | |
| tree | 3e9aab4198ba1d15f30bb42ace9326a67d0423ef | |
| parent | cc40c8468994941a2c5e3a2c67a3590faf588745 (diff) | |
quiet warning about FS::part_pkg::Import
| -rw-r--r-- | FS/FS/part_pkg.pm | 4 |
1 files changed, 2 insertions, 2 deletions
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"; |