diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2014-06-17 05:31:40 -0700 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2014-06-17 05:31:40 -0700 |
| commit | f2248fc4efed88f10f74badea16cbf996ec118d1 (patch) | |
| tree | ccc4a3d5632c340e986fda22ce06b7dab4072176 /FS/FS/cdr.pm | |
| parent | fc7bc7a54a4e5447971b3565fb9e2d1b5d0a70e0 (diff) | |
IVR CDR import, RT#29055
Diffstat (limited to 'FS/FS/cdr.pm')
| -rw-r--r-- | FS/FS/cdr.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/FS/FS/cdr.pm b/FS/FS/cdr.pm index 3af776b..0771a7b 100644 --- a/FS/FS/cdr.pm +++ b/FS/FS/cdr.pm @@ -1519,8 +1519,8 @@ as keys (for use with batch_import) and "pretty" format names as values. my %cdr_info; foreach my $INC ( @INC ) { - warn "globbing $INC/FS/cdr/*.pm\n" if $DEBUG; - foreach my $file ( glob("$INC/FS/cdr/*.pm") ) { + warn "globbing $INC/FS/cdr/[a-z]*.pm\n" if $DEBUG; + foreach my $file ( glob("$INC/FS/cdr/[a-z]*.pm") ) { warn "attempting to load CDR format info from $file\n" if $DEBUG; $file =~ /\/(\w+)\.pm$/ or do { warn "unrecognized file in $INC/FS/cdr/: $file\n"; |