Fix perl 5.10 issue with //= syntax

waterkip · timlegge · commit ca48803541db · 2020-06-07T21:05:51.000-03:00
Signed-off-by: Wesley Schwengle &lt;wesley@opndev.io&gt;
diff --git a/lib/Net/SAML2/Protocol/AuthnRequest.pm b/lib/Net/SAML2/Protocol/AuthnRequest.pm
@@ -100,7 +100,9 @@ around BUILDARGS => sub {
 
     my %params = @_;
     if ($params{nameid_format}) {
-        $params{nameidpolicy_format} //= $params{nameid_format};
+        unless (defined $params{nameidpolicy_format}) {
+            $params{nameidpolicy_format} = $params{nameid_format};
+        }
     }
 
     return $self->$orig(%params);

Original file line number	Diff line number	Diff line change
`@@ -100,7 +100,9 @@ around BUILDARGS => sub {`
`100`	`100`
`101`	`101`	`my %params = @_;`
`102`	`102`	`if ($params{nameid_format}) {`
`103`		`- $params{nameidpolicy_format} //= $params{nameid_format};`
	`103`	`+ unless (defined $params{nameidpolicy_format}) {`
	`104`	`+ $params{nameidpolicy_format} = $params{nameid_format};`
	`105`	`+ }`
`104`	`106`	`}`
`105`	`107`
`106`	`108`	`return $self->$orig(%params);`