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