freeside/FS/FS part_pkg.pm,1.31,1.32

[ivan]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory pouncequick:/tmp/cvs-serv25221

Modified Files:
	part_pkg.pm 
Log Message:
better debugging for options passed to insert method

Index: part_pkg.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_pkg.pm,v
retrieving revision 1.31
retrieving revision 1.32
diff -u -d -r1.31 -r1.32
--- part_pkg.pm	1 Dec 2004 03:35:05 -0000	1.31
+++ part_pkg.pm	23 Dec 2004 09:07:34 -0000	1.32
@@ -136,7 +136,9 @@
 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';