projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
cc40c84
)
quiet warning about FS::part_pkg::Import
author
Ivan Kohler
<ivan@freeside.biz>
Mon, 19 Jan 2015 13:28:20 +0000
(
05:28
-0800)
committer
Ivan Kohler
<ivan@freeside.biz>
Mon, 19 Jan 2015 13:28:20 +0000
(
05:28
-0800)
FS/FS/part_pkg.pm
patch
|
blob
|
history
diff --git
a/FS/FS/part_pkg.pm
b/FS/FS/part_pkg.pm
index
bac4b8b
..
18a065d
100644
(file)
--- 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 ) {
#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";
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";