diff options
author | ivan <ivan> | 2004-12-23 09:07:34 +0000 |
---|---|---|
committer | ivan <ivan> | 2004-12-23 09:07:34 +0000 |
commit | 157a14d87965d87219f915d69e6106d731bbd82c (patch) | |
tree | 3815e273dd4f23c49ee6443c2e8404c39960211d /FS | |
parent | ae344ea5a2b4346d911d5af7cbc3ba4c54f08270 (diff) |
better debugging for options passed to insert method
Diffstat (limited to 'FS')
-rw-r--r-- | FS/FS/part_pkg.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/FS/FS/part_pkg.pm b/FS/FS/part_pkg.pm index 9392f4b..cef4a61 100644 --- a/FS/FS/part_pkg.pm +++ b/FS/FS/part_pkg.pm @@ -136,7 +136,9 @@ the scalar will be updated with the custnum value from the cust_pkg record. sub insert { my $self = shift; my %options = @_; - warn "FS::part_pkg::insert called on $self with options %options" if $DEBUG; + warn "FS::part_pkg::insert called on $self with options ". + join(', ', map "$_=>$options{$_}", keys %options) + if $DEBUG; local $SIG{HUP} = 'IGNORE'; local $SIG{INT} = 'IGNORE'; |