diff options
author | Ivan Kohler <ivan@freeside.biz> | 2014-08-21 00:29:13 -0700 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2014-08-21 00:29:13 -0700 |
commit | 2f3853d914dc965c3a398edf105a9524a1d67456 (patch) | |
tree | 4a67a322b6d9553b7187950538739a2953b1851a | |
parent | 89a387874554b561f87d7ad5958f915f4feb95d6 (diff) |
full backtrace
-rw-r--r-- | FS/FS/option_Common.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/FS/FS/option_Common.pm b/FS/FS/option_Common.pm index 74adbede8..8c690890f 100644 --- a/FS/FS/option_Common.pm +++ b/FS/FS/option_Common.pm @@ -3,6 +3,7 @@ package FS::option_Common; use strict; use base qw( FS::Record ); use vars qw( $DEBUG ); +use Carp qw( cluck ); use Scalar::Util qw( blessed ); use FS::Record qw( qsearch qsearchs dbh ); @@ -344,7 +345,7 @@ sub option { $pkey => $self->get($pkey), $namecol => shift, }; - warn "$self -> option: searching for ". + cluck "$self -> option: searching for ". join(' / ', map { "$_ => ". $hashref->{$_} } keys %$hashref ) if $DEBUG; my $obj = qsearchs($option_table, $hashref); |