diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2015-12-09 16:56:05 -0800 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2015-12-09 16:56:05 -0800 |
| commit | 3c32a627231b397f95f3e464ddf93e9f58aa9ab0 (patch) | |
| tree | dfb1e1dc17dc7a47b53c493c92dcf0f11b678f06 /httemplate/view/elements/svc_radius_usage.html | |
| parent | 60038d862886d0eb3e9ac7fda516786d3a1c3388 (diff) | |
deal when Net::MAC::Vendor-lookup doesn't return an arrayref, RT#39384
Diffstat (limited to 'httemplate/view/elements/svc_radius_usage.html')
| -rw-r--r-- | httemplate/view/elements/svc_radius_usage.html | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/httemplate/view/elements/svc_radius_usage.html b/httemplate/view/elements/svc_radius_usage.html index 471969175..56198524c 100644 --- a/httemplate/view/elements/svc_radius_usage.html +++ b/httemplate/view/elements/svc_radius_usage.html @@ -27,8 +27,11 @@ % ) / 1073741824; % % my $last_mac = $svc->attribute_last_sqlradacct( 'CallingStationId' ); -% if ( $last_mac =~ /^\s*(([\dA-F]{2}[\-:]){5}[\dA-F]{2})/i ) { -% $last_mac .= ' ('. (Net::MAC::Vendor::lookup($1))->[0]. ')'; +% if ( $last_mac =~ /^\s*(([\dA-F]{2}[\-:]){5}[\dA-F]{2})/i +% && my $vendor = Net::MAC::Vendor::lookup($1) +% ) +% { +% $last_mac .= ' ('. $vendor->[0]. ')'; % } |