From 85190dc6f5248958c1209d81c15bc8f50513e722 Mon Sep 17 00:00:00 2001
From: Irina Peshinskaya <ipeshinskaya@sipwise.com>
Date: Fri, 29 Jun 2018 14:09:17 +0200
Subject: [PATCH] TT#37650 Align forcearray policy arguments

Change-Id: I568d40672a01f82e8c125cb48762337a345e5f52
---
 lib/Data/HAL.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/Data/HAL.pm b/lib/Data/HAL.pm
index f16a695..642ea35 100644
--- a/lib/Data/HAL.pm
+++ b/lib/Data/HAL.pm
@@ -184,9 +184,9 @@ sub _to_nested {
                     if ( $p->$_can('_forcearray') && $p->_forcearray ){
                         $forcearray = 1;
                     } elsif ( $p->$_can('forcearray_policy') ) {
-                        $forcearray = $p->forcearray_policy($root,$prop,$r);
+                        $forcearray = $p->forcearray_policy($root,$prop,$r,$p);
                     } elsif ( $root->$_can('forcearray_policy') ) {
-                        $forcearray = $root->forcearray_policy($prop,$r,$p);
+                        $forcearray = $root->forcearray_policy($root,$prop,$r,$p);
                     } elsif ( $root->_forcearray_underneath ) {
                         if( $forcearray = $root->_forcearray_underneath->{all} ){
                             $forcearray = 1;