Lines Matching refs:a
99 my $a = shift;
101 $a =~ /~$/ && return;
102 $a =~ /\#$/ && return;
103 $a =~ /\.orig$/ && return;
104 $a =~ /unxlng.*\.pro$/ && return;
105 $a =~ /wntmsc.*\.pro$/ && return;
106 $a =~ /.swp$/ && return;
107 $a =~ /POSITION/ && return;
108 $a =~ /ReadMe/ && return;
109 $a =~ /.tmp$/ && return;
110 $a =~ /\.svn/ && return;
111 $a eq 'CVS' && return;
112 $a eq '.' && return;
113 $a eq '..' && return;
115 return $a;
156 for $a (@files) {
157 $filename = $a;
161 my $testcase = $a;
163 my $result = testLog( $a, $logdir );
166 if ( $failureCmd eq "" ) { $failureCmd = " diff -up $a $logdir "; }
187 for $a (@failedTests) {
188 print "\t$a\n";