Freeradius, rlm_perl and tagged attributes from rlm_sql

[Igor V. Malinovskiy]

I'm using Freeradius 2.1.10. I need to reply to NAS same attributes with 
tags using rlm_sql and rlm_perl. But in result number of tags is missing 
and in reply only attributes with ":0".

mysql> select * from radreply;
+----+--------------+-------------------+----+----------+
| id | username     | attribute         | op | value    |
+----+--------------+-------------------+----+----------+
|  1 | testuser at new | Context-Name      | =  | Internet |
|  2 | testuser at new | Service-Name:1    | += | GUEST    |
|  3 | testuser at new | Service-Options:1 | += | 0        |
|  4 | testuser at new | Service-Name:2    | += | INET     |
|  5 | testuser at new | Service-Options:2 | += | 1        |
+----+--------------+-------------------+----+----------+
5 rows in set (0.00 sec)

Debug: rlm_perl: Added pair NAS-Port-Type = Virtual
Debug: rlm_perl: Added pair CHAP-Password = 
0x01d5b5364721d124b36c2fcaf86dc1289b
Debug: rlm_perl: Added pair Acct-Session-Id = 0000FFFF6802B4D0-4DAC4ACD
Debug: rlm_perl: Added pair Proxy-State = 0x313538
Debug: rlm_perl: Added pair Service-Type = Framed-User
Debug: rlm_perl: Added pair CHAP-Challenge = 
0xa87b4c6f31d9b71f63a5b54b9482bf1f
Debug: rlm_perl: Added pair NAS-IP-Address = 172.26.201.21
Debug: rlm_perl: Added pair NAS-Real-Port = 285216672
Debug: rlm_perl: Added pair Medium-Type = 11
Debug: rlm_perl: Added pair Framed-Protocol = PPP
Debug: rlm_perl: Added pair User-Name = testuser at new
Debug: rlm_perl: Added pair NAS-Port = 16842752
Debug: rlm_perl: Added pair Acct-Interim-Interval = 1800
Debug: rlm_perl: Added pair Service-Name = GUEST
Debug: rlm_perl: Added pair Service-Name = INET
Debug: rlm_perl: Added pair Context-Name = Internet
Debug: rlm_perl: Added pair Service-Type = Framed-User
Debug: rlm_perl: Added pair Framed-IP-Address = 255.255.255.254
Debug: rlm_perl: Added pair Service-Options = 0
Debug: rlm_perl: Added pair Service-Options = 1
Debug: rlm_perl: Added pair Cleartext-Password = testpass
Debug: rlm_perl: Added pair Auth-Type = CHAP
Info: ++[perl] returns ok
Sending Access-Accept of id 180 to 127.0.0.1 port 11113
     Acct-Interim-Interval = 1800
     Service-Name:0 += "GUEST"
     Service-Name:0 += "INET"
     Context-Name = "Internet"
     Service-Type = Framed-User
     Framed-IP-Address = 255.255.255.254
     Service-Options:0 += 0
     Service-Options:0 += 1
     Proxy-State = 0x313538
Mon Apr 18 17:29:33 2011 : Info: Finished request 3.
Mon Apr 18 17:29:33 2011 : Debug: Going to the next request