@@ -, +, @@ if ( any { /(^psgi\.|^plack\.)/i } keys %ENV ) if ( any { /(^psgi\.|^plack\.)/i } keys %ENV ) # Failed test 'checkpw_shib tests' # at t/Auth_with_shibboleth.t line 335. Invalid parameter passed, categorycode= does not exist# Looks like your test exited with 255 just after 5. --- C4/Auth_with_shibboleth.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) --- a/C4/Auth_with_shibboleth.pm +++ a/C4/Auth_with_shibboleth.pm @@ -150,7 +150,7 @@ sub _sync { my %borrower; $borrower{'borrowernumber'} = $borrowernumber; while ( my ( $key, $entry ) = each %{$config->{'mapping'}} ) { - if ( any { /(^psgi|^plack)/i } keys %ENV ) { + if ( any { /(^psgi\.|^plack\.)/i } keys %ENV ) { $borrower{$key} = ( $entry->{'is'} && $ENV{"HTTP_" . uc($entry->{'is'}) } ) || $entry->{'content'} || ''; } else { $borrower{$key} = ( $entry->{'is'} && $ENV{ $entry->{'is'} } ) || $entry->{'content'} || ''; --