1 files changed, 2 insertions, 6 deletions
diff --git a/LedgerSMB.pm b/LedgerSMB.pm
index f1698664..d547ea51 100755
--- a/LedgerSMB.pm
+++ b/LedgerSMB.pm
@@ -525,9 +525,6 @@ sub round_amount {
 }
 
 sub callproc {
-	for my $arg (@_){
-		print "Callproc arg: $arg\n";
-	}
 	my $self = shift @_;
 	my $procname = shift @_;
 	my $argstr = "";
@@ -3120,9 +3117,8 @@ sub audittrail {
 }
 
 sub merge {
-	my $self = shift @_;
-	my $src = shift @_;
-	for $arg (@_){
+	my ($self, $src)  = @_;
+	for $arg (keys %$src){
 		$self->{$arg} = $src->{$arg};
 	}
 }