From eae4f60e579b144890406a17d57966938df22504 Mon Sep 17 00:00:00 2001
From: Andrew Johnson <anj@aps.anl.gov>
Date: Tue, 4 Nov 2014 15:10:50 -0600
Subject: [PATCH] cap5: Fix replace_access_rights_event() channel method

---
 src/ca/client/perl/Cap5.xs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/ca/client/perl/Cap5.xs b/src/ca/client/perl/Cap5.xs
index 0bb3f7d28..6ba538156 100644
--- a/src/ca/client/perl/Cap5.xs
+++ b/src/ca/client/perl/Cap5.xs
@@ -546,13 +546,13 @@ void rights_handler(struct access_rights_handler_args arha) {
 
 void CA_replace_access_rights_event(SV *ca_ref, SV *sub) {
     CA_channel *pch = (CA_channel *)SvIV(SvRV(ca_ref));
-    caCh *handler = &rights_handler;
+    caArh *handler = &rights_handler;
     int status;
 
     if (! replace_handler(sub, &pch->rights_sub, (long *)&handler))
         return;
 
-    status = ca_change_connection_event(pch->chan, handler);
+    status = ca_replace_access_rights_event(pch->chan, handler);
 
     if (status != ECA_NORMAL) {
         croak("%s", get_error_msg(status));