From: ivan <ivan>
Date: Fri, 14 Mar 2008 02:09:26 +0000 (+0000)
Subject: show where the warning about no conf comes from
X-Git-Tag: TRIXBOX_2_6~22
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=d9d1e511c0636c12a495d533218f671d42d357bf

show where the warning about no conf comes from
---

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(@_);