perl/perl-Convert-ASN1
SHA256
9
0
Fork 0
forked from pool/perl-Convert-ASN1
Code Pull Requests Activity

Accepting request 903065 from home:pmonrealgonzalez:branches:devel:languages:perl

Browse Source 
- Fix autoupdate: Update spec file
- Rebase Convert-ASN1-0.22-test.diff and rename it to
  perl-Convert-ASN1-0.31-test.patch

OBS-URL: https://build.opensuse.org/request/show/903065
OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl-Convert-ASN1?expand=0&rev=34
This commit is contained in:
Pedro Monreal Gonzalez
2021-06-29 11:15:58 +00:00
committed by Git OBS Bridge
parent 65a5d5f713
commit faac7f1777
5 changed files with 31 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
perl-Convert-ASN1-0.31-test.patch Normal file
View File

@@ -0,0 +1,18 @@
Index: Convert-ASN1-0.31/t/00prim.t
===================================================================
--- Convert-ASN1-0.31.orig/t/00prim.t
+++ Convert-ASN1-0.31/t/00prim.t
@@ -178,9 +178,10 @@ my %BSTR = (
[pack("B*",'011011111101110111'), 7, pack("B*", '01101110')]
);
-while(($result,$val) = each %BSTR) {
- print "# BIT STRING ", unpack("B*", ref($val) ? $val->[0] : $val),
- " ",(ref($val) ? $val->[1] : $val),"\n";
+foreach $result (sort(keys %BSTR)) {
+ $val = $BSTR{$result};
+ print "# BIT STRING ", unpack("B*", ref($val) ? $val->[0] : $val),
+ " ",(ref($val) ? $val->[1] : $val),"\n";
btest $test++, $asn->prepare('bit BIT STRING') or warn $asn->error;
stest $test++, $result, $asn->encode( bit => $val) or warn $asn->error;