From 5ac1caa13f07e0ef57d91969a9dcd11388d3816d Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Fri, 24 Oct 2008 21:25:29 +0000
Subject: [PATCH] rlm_perl hook for prepaid voip radius, RT#4100

---
 fs_selfservice/FS-SelfService/SelfService/FreeRadiusVoip.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/fs_selfservice/FS-SelfService/SelfService/FreeRadiusVoip.pm b/fs_selfservice/FS-SelfService/SelfService/FreeRadiusVoip.pm
index c52a97fb2..67ad9a15b 100644
--- a/fs_selfservice/FS-SelfService/SelfService/FreeRadiusVoip.pm
+++ b/fs_selfservice/FS-SelfService/SelfService/FreeRadiusVoip.pm
@@ -41,7 +41,7 @@ sub authorize {
   my $response = call_time( 'src' => $RAD_REQUEST{'Calling-Station-Id'},
                             'dst' => $RAD_REQUEST{'Called-Station-Id'},  );
 
-  if ( $response->{$error} ) {
+  if ( $response->{'error'} ) {
     $RAD_REPLY{'Access-Reject'} = $response->{'error'};
     return RLM_MODULE_REJECT;
   } else {
-- 
2.11.0