Lines Matching full:strings

10 no strict 'refs';               # To be able to use strings as function refs
70       skip "perl error strings and ssystem error strings for errcode 0 differ", 1
113     my @strings = @_;
118     if (scalar @strings > 1) {
120             . join("', '", @strings) . "' )";
122         $desc = "match '$first' ($desc) with '$strings[0]'";
127                  @strings
134     my @strings = @_;
142     return match_any($reason, $errcode_hex, @strings);
148     my @strings = ();
150     push @strings, eval {
158     push @strings, qr/^non-translatable vms error code:/ if $^O eq 'VMS';
160     push @strings, "reason($errcode)";
162     return match_opensslerr_reason(ERR_SYSTEM_FLAG | $errcode, @strings);