[openssl-commits] [tools] master update

[Richard Levitte]

The branch master has been updated
       via  97da7e34670fbba78ae41c1bafe1b81a1f02a1a6 (commit)
      from  851081ea0b61dfbc4f5b8cfffe5ea97ee388a715 (commit)


- Log -----------------------------------------------------------------
commit 97da7e34670fbba78ae41c1bafe1b81a1f02a1a6
Author: Richard Levitte <richard at levitte.org>
Date:   Wed Jun 14 12:26:23 2017 +0200

    Fix OpenSSL::Query, has_cla stopped working right

-----------------------------------------------------------------------

Summary of changes:
 OpenSSL-Query/lib/OpenSSL/Query.pm | 18 ++++++++++++------
 1 file changed, 12 insertions(+), 6 deletions(-)

diff --git a/OpenSSL-Query/lib/OpenSSL/Query.pm b/OpenSSL-Query/lib/OpenSSL/Query.pm
index 3d884bc..d7a2338 100644
--- a/OpenSSL-Query/lib/OpenSSL/Query.pm
+++ b/OpenSSL-Query/lib/OpenSSL/Query.pm
@@ -76,13 +76,14 @@ sub new {
 
 sub _perform {
   my $self = shift;
+  my $type = shift;
   my $sub = shift;
   my $opts = shift;
 
   croak "\$opts MUST be a HASHref" unless ref($opts) eq "HASH";
 
   my @errors = ();
-  foreach (@{$self->{person}}) {
+  foreach (@{$self->{$type}}) {
     my @result = eval { $sub->($_, $opts, @_) };
     return @result unless $@;
     push @errors, $@;
@@ -95,7 +96,8 @@ sub _perform {
 sub find_person {
   my $self = shift;
 
-  $self->_perform(sub { my $obj = shift;
+  $self->_perform('person',
+		  sub { my $obj = shift;
 			my $opts = shift;
 			return $opts->{wantarray}
 			  ? ($obj->find_person(@_))
@@ -106,7 +108,8 @@ sub find_person {
 sub find_person_tag {
   my $self = shift;
 
-  $self->_perform(sub { my $obj = shift;
+  $self->_perform('person',
+		  sub { my $obj = shift;
 			my $opts = shift;
 			$obj->find_person_tag(@_) },
 		  { wantarray => wantarray }, @_);
@@ -115,7 +118,8 @@ sub find_person_tag {
 sub is_member_of {
   my $self = shift;
 
-  $self->_perform(sub { my $obj = shift;
+  $self->_perform('person',
+		  sub { my $obj = shift;
 			my $opts = shift;
 			$obj->is_member_of(@_) },
 		  { wantarray => wantarray }, @_);
@@ -125,7 +129,8 @@ sub is_member_of {
 sub members_of {
   my $self = shift;
 
-  $self->_perform(sub { my $obj = shift;
+  $self->_perform('person',
+		  sub { my $obj = shift;
 			my $opts = shift;
 			$obj->members_of(@_) },
 		  { wantarray => wantarray }, @_);
@@ -135,7 +140,8 @@ sub members_of {
 sub has_cla {
   my $self = shift;
 
-  $self->_perform(sub { my $obj = shift;
+  $self->_perform('cla',
+		  sub { my $obj = shift;
 			my $opts = shift;
 			$obj->has_cla(@_) },
 		  { wantarray => wantarray }, @_);