From 283be8eddb1cb0d1af79822a36914e56f861d44d Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Fri, 14 Jul 2006 03:27:48 +0000
Subject: [PATCH] this should fix radius group editing and the "Reference found
 where even-sized list expected at
 /usr/local/share/perl/5.8.4/FS/svc_Common.pm line 473" error

---
 FS/FS/svc_Common.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/FS/FS/svc_Common.pm b/FS/FS/svc_Common.pm
index f2e1b9adb..c1c482d72 100644
--- a/FS/FS/svc_Common.pm
+++ b/FS/FS/svc_Common.pm
@@ -470,7 +470,7 @@ sub setx {
   my $self = shift;
   my $x = shift;
   my @x = ref($x) ? @$x : ($x);
-  my %coderef = @_ ? shift : {};
+  my $coderef = scalar(@_) ? shift : {};
 
   my $error =
     $self->ut_numbern('svcnum')
@@ -490,8 +490,8 @@ sub setx {
     my $columnname  = $part_svc_column->columnname;
     my $columnvalue = $part_svc_column->columnvalue;
 
-    if ( exists( $coderef{columnname} ) ) {
-      &{ $coderef{$columnname} }( $self, $columnvalue);
+    if ( exists( $coderef->{$columnname} ) ) {
+      &{ $coderef->{$columnname} }( $self, $columnvalue);
     } else {
       $self->setfield( $columnname, $columnvalue );
     }
-- 
2.11.0