| … | |
… | |
| 120 | I<DATA> member, and you may re-assign the array itself, e.g.: |
120 | I<DATA> member, and you may re-assign the array itself, e.g.: |
| 121 | |
121 | |
| 122 | $ber = ber_decode $binbuf; |
122 | $ber = ber_decode $binbuf; |
| 123 | |
123 | |
| 124 | # the following is NOT legal: |
124 | # the following is NOT legal: |
| 125 | $ber->[BER_CLASS] = ASN_PRIVATE; # ERROR, readonly(!) |
125 | $ber->[BER_CLASS] = ASN_PRIVATE; # ERROR, class/tag/constructed are readonly(!) |
| 126 | |
126 | |
| 127 | # but all of the following are fine: |
127 | # but all of the following are fine: |
| 128 | $ber->[BER_DATA] = "string"; |
128 | $ber->[BER_DATA] = "string"; |
| 129 | $ber->[BER_DATA] = [ASN_UNIVERSAL, ASN_INTEGER32, 0, 123]; |
129 | $ber->[BER_DATA] = [ASN_UNIVERSAL, ASN_INTEGER32, 0, 123]; |
| 130 | @$ber = (ASN_APPLICATION, SNMP_TIMETICKS, 1000); |
130 | @$ber = (ASN_APPLICATION, SNMP_TIMETICKS, 1000); |
