Lines Matching refs:_
24 my %opts = @_;
104 return compare_text(@_, sub {
105 $_[0] =~ s/\R//g;
106 $_[1] =~ s/\R//g;
107 return $_[0] ne $_[1];
112 $_ = shift @_;
113 my $pattern = shift @_;
114 open(DATA, $_) or return 0;
115 $_= join('', <DATA>);
122 my $cert = shift @_;
123 my $pattern = shift @_;
124 my $expected = shift @_;
125 my $name = shift @_;
135 grep { not $seen{$_}++ } @_;
139 my $filename = shift @_;
147 my $cert = shift @_;
148 my $expected = shift @_;
149 my $exts = shift @_;
150 my $name = shift @_;