Artifact
46ed482825fccaa44474f0b65c59e59fa89f069c:
Attachment "asn.patch" to
ticket [1539479fff]
added by
pdav
2006-08-13 16:33:58.
--- asn.tcl.old Sun Aug 13 11:28:40 2006
+++ asn.tcl Sun Aug 13 11:29:14 2006
@@ -263,8 +263,8 @@
proc ::asn::asnContext {contextNumber data} {
# Packs the arguments into a constructed value with application tag.
set code [expr {0x080 + $contextNumber}]
- set len [string length $out]
- return [binary format ca*a$len $code [asnLength $len] $out]
+ set len [string length $data]
+ return [binary format ca*a$len $code [asnLength $len] $data]
}
#-----------------------------------------------------------------------------
# asnChoice
