diff options
| author | Jack Lloyd <[email protected]> | 2017-09-16 16:33:41 -0400 |
|---|---|---|
| committer | Jack Lloyd <[email protected]> | 2017-09-16 16:34:41 -0400 |
| commit | 46a94f99ca489926fcbacd2ee3e9ae22d0b2782b (patch) | |
| tree | 70f29b7fd5cd42f54c86811d0464a3b2dcd770e3 | |
| parent | f454713cf14c68929975fba07940284cac902a84 (diff) | |
Fix building Perl wrapper - ability to add OIDs removed
Still fails most of its tests though
[ci skip]
| -rw-r--r-- | src/contrib/perl-xs/Botan.xs | 12 | ||||
| -rw-r--r-- | src/contrib/perl-xs/t/oid.t | 7 |
2 files changed, 1 insertions, 18 deletions
diff --git a/src/contrib/perl-xs/Botan.xs b/src/contrib/perl-xs/Botan.xs index 38f1646b6..339986092 100644 --- a/src/contrib/perl-xs/Botan.xs +++ b/src/contrib/perl-xs/Botan.xs @@ -361,18 +361,6 @@ Botan__OID::as_string() MODULE = Botan PACKAGE = Botan::OIDS -void -add_oid(oid, name) - Botan__OID *oid; - char *name; - CODE: - try { - Botan::OIDS::add_oid(*oid, name); - } - catch (const std::exception &e) { - croak(e.what()); - } - char * lookup_by_oid(oid) Botan__OID *oid; diff --git a/src/contrib/perl-xs/t/oid.t b/src/contrib/perl-xs/t/oid.t index 66204541f..694121ca8 100644 --- a/src/contrib/perl-xs/t/oid.t +++ b/src/contrib/perl-xs/t/oid.t @@ -7,7 +7,7 @@ # Change 1..1 below to 1..last_test_to_print . # (It may become useful if the test is moved to ./t subdirectory.) -BEGIN { $| = 1; print "1..6\n"; } +BEGIN { $| = 1; print "1..5\n"; } END { print "not ok 1\n" unless $loaded; } use Botan; @@ -38,8 +38,3 @@ my $oid_foo_num = '1.2.3.4.5.6.7.8.9.10.11.12.13.14.15'; my $oid_foo = Botan::OID->new($oid_foo_num); print "not " if Botan::OIDS::lookup_by_oid($oid_foo) ne $oid_foo_num; print "ok 5\n"; - -Botan::OIDS::add_oid($oid_foo, 'Zito.Foo'); - -print "not " if Botan::OIDS::lookup_by_oid($oid_foo) ne 'Zito.Foo'; -print "ok 6\n"; |