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

1 files changed, 4 insertions, 1 deletions

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};