forked from pool/perl-Convert-ASN1
13 lines
341 B
Diff
13 lines
341 B
Diff
|
--- t/00prim.t
|
||
|
|
+++ t/00prim.t
|
||
|
|
@@ -177,7 +177,8 @@
|
||
|
|
[pack("B*",'011011111101110111'), 7, pack("B*", '01101110')]
|
||
|
|
);
|
||
|
|
|
||
|
|
-while(($result,$val) = each %BSTR) {
|
||
|
|
+foreach $result (sort(keys %BSTR)) {
|
||
|
|
+ $val = $BSTR{$result};
|
||
|
|
print "# BIT STRING ", unpack("B*", ref($val) ? $val->[0] : $val),
|
||
|
|
" ",(ref($val) ? $val->[1] : $val),"\n";
|
||
|
|
|