File Convert-ASN1-0.22-test.diff of Package perl-Convert-ASN1
--- 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";