projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
3b4f265
)
show where the warning about no conf comes from
author
ivan
<ivan>
Fri, 14 Mar 2008 02:09:26 +0000
(
02:09
+0000)
committer
ivan
<ivan>
Fri, 14 Mar 2008 02:09:26 +0000
(
02:09
+0000)
FS/FS/Conf.pm
patch
|
blob
|
history
diff --git
a/FS/FS/Conf.pm
b/FS/FS/Conf.pm
index
a763ed4
..
3397412
100644
(file)
--- 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);
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;
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);
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(@_);
if use_confcompat;
my $compat = new FS::Conf_compat17 ("$base_dir/conf." . datasrc);
$compat->$method(@_);