From 2fadb47e6b2eb95e154dea039a9c00e3edaf438c Mon Sep 17 00:00:00 2001
From: Timothy Legge <timlegge@gmail.com>
Date: Sat, 20 Apr 2024 21:11:41 -0300
Subject: [PATCH] Update for in_response_to changes

---
 lib/Net/SAML2/Protocol/LogoutResponse.pm |  8 ++++----
 lib/Net/SAML2/SP.pm                      | 12 ++++++------
 t/author/01-confirm-schema.t             |  2 +-
 3 files changed, 11 insertions(+), 11 deletions(-)

diff --git a/lib/Net/SAML2/Protocol/LogoutResponse.pm b/lib/Net/SAML2/Protocol/LogoutResponse.pm
index 0463634..cdc9ef8 100644
--- a/lib/Net/SAML2/Protocol/LogoutResponse.pm
+++ b/lib/Net/SAML2/Protocol/LogoutResponse.pm
@@ -14,10 +14,10 @@ with 'Net::SAML2::Role::ProtocolMessage';
 =head1 SYNOPSIS
 
     my $logout_req = Net::SAML2::Protocol::LogoutResponse->new(
-        issuer      => $issuer,
-        destination => $destination,
-        status      => $status,
-        response_to => $response_to,
+        issuer          => $issuer,
+        destination     => $destination,
+        status          => $status,
+        in_response_to  => $in_response_to,
     );
 
 =head1 DESCRIPTION
diff --git a/lib/Net/SAML2/SP.pm b/lib/Net/SAML2/SP.pm
index a0b9a5f..7345c45 100644
--- a/lib/Net/SAML2/SP.pm
+++ b/lib/Net/SAML2/SP.pm
@@ -409,7 +409,7 @@ sub logout_request {
     return $logout_req;
 }
 
-=head2 logout_response( $destination, $status, $response_to )
+=head2 logout_response( $destination, $status, $in_response_to )
 
 Returns a LogoutResponse object created by this SP, intended for the
 given destination, which should be the identity URI of the IdP.
@@ -420,14 +420,14 @@ LogoutRequest.
 =cut
 
 sub logout_response {
-    my ($self, $destination, $status, $response_to) = @_;
+    my ($self, $destination, $status, $in_response_to) = @_;
 
     my $status_uri = Net::SAML2::Protocol::LogoutResponse->status_uri($status);
     my $logout_req = Net::SAML2::Protocol::LogoutResponse->new(
-        issuer      => $self->issuer,
-        destination => $destination,
-        status      => $status_uri,
-        response_to => $response_to,
+        issuer          => $self->issuer,
+        destination     => $destination,
+        status          => $status_uri,
+        in_response_to  => $in_response_to,
     );
 
     return $logout_req;
diff --git a/t/author/01-confirm-schema.t b/t/author/01-confirm-schema.t
index 95a2204..218d616 100644
--- a/t/author/01-confirm-schema.t
+++ b/t/author/01-confirm-schema.t
@@ -60,7 +60,7 @@ my $logout_resp = Net::SAML2::Protocol::LogoutResponse->new(
     issuer      => 'https://netsaml2-testapp.local',
     destination => 'destination',
     status      => 'status',
-    response_to => 'NETSAML2_dkajhdahdkhdkdj',
+    in_response_to => 'NETSAML2_dkajhdahdkhdkdj',
   )->as_xml;
 
 $post_request = $post->sign_xml($logout_resp);