diff options
| author | ivan <ivan> | 2002-05-22 02:09:32 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2002-05-22 02:09:32 +0000 |
| commit | 9616707e5bfbad90aa63aaafffb6f47556f2adca (patch) | |
| tree | ca7e03aec1ba9e455778c0dd7f4f32f787b8160f /FS | |
| parent | 74a98a74f07bbcf05975fd444ed87baefae37e7d (diff) | |
5.6-isms
Diffstat (limited to 'FS')
| -rw-r--r-- | FS/FS/part_export/sqlradius.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/FS/FS/part_export/sqlradius.pm b/FS/FS/part_export/sqlradius.pm index b31ec5cd3..3c781c043 100644 --- a/FS/FS/part_export/sqlradius.pm +++ b/FS/FS/part_export/sqlradius.pm @@ -13,7 +13,7 @@ sub _export_insert { foreach my $table (qw(reply check)) { my $method = "radius_$table"; - my %attrib = $svc_acct->$method; + my %attrib = $svc_acct->$method(); next unless keys %attrib; my $err_or_queue = $self->sqlradius_queue( $svc_acct->svcnum, 'insert', $table, $svc_acct->username, %attrib ); @@ -56,8 +56,8 @@ sub _export_replace { foreach my $table (qw(reply check)) { my $method = "radius_$table"; - my %new = $new->$method; - my %old = $old->$method; + my %new = $new->$method(); + my %old = $old->$method(); if ( grep { !exists $old{$_} #new attributes || $new{$_} ne $old{$_} #changed } keys %new |