From 6b9ed8b9dcafd1c3827dc478452bb1e411174e98 Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Mon, 14 May 2007 16:25:52 +0000
Subject: Fixing Merge so that @keys is truly optional

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1185 4979c152-3d1c-0410-bac9-87ea11338e46
---
 LedgerSMB.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/LedgerSMB.pm b/LedgerSMB.pm
index b3d6e1dd..31cb577c 100755
--- a/LedgerSMB.pm
+++ b/LedgerSMB.pm
@@ -571,7 +571,10 @@ sub merge {
         shift;
     }
     my %args  = @_;
-    my @keys  = @{ $args{keys} };
+    my @keys;
+    if (defined $args{keys}){
+         @keys  = @{ $args{keys} };
+    }
     my $index = $args{index};
     if ( !scalar @keys ) {
         @keys = keys %{$src};
-- 
cgit v1.2.3