diff options
author | ivan <ivan> | 2008-03-14 02:09:26 +0000 |
---|---|---|
committer | ivan <ivan> | 2008-03-14 02:09:26 +0000 |
commit | d9d1e511c0636c12a495d533218f671d42d357bf (patch) | |
tree | 3347ae86d84aaeb00655965658b49926d33cbf0c /FS | |
parent | 3b4f265c6d5233ca15eb21e8989a165a9ae32073 (diff) |
show where the warning about no conf comes from
Diffstat (limited to 'FS')
-rw-r--r-- | FS/FS/Conf.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/FS/FS/Conf.pm b/FS/FS/Conf.pm index a763ed4c6..33974123d 100644 --- a/FS/FS/Conf.pm +++ b/FS/FS/Conf.pm @@ -1,6 +1,7 @@ package FS::Conf; use vars qw($base_dir @config_items @base_items @card_types $DEBUG); +use Carp; use IO::File; use File::Basename; use MIME::Base64; @@ -84,7 +85,7 @@ global default if one is present. sub _usecompat { my ($self, $method) = (shift, shift); - warn "NO CONFIGURATION RECORDS FOUND -- USING COMPATIBILITY MODE" + carp "NO CONFIGURATION RECORDS FOUND -- USING COMPATIBILITY MODE" if use_confcompat; my $compat = new FS::Conf_compat17 ("$base_dir/conf." . datasrc); $compat->$method(@_); |