Lines Matching refs:program

191     foreach my $program (@progs) {
192         if (exists $program -> {SKIP}) {
193             chomp  $program -> {SKIP};
194             skip   $program -> {SKIP}, 1;
198 	chomp @{$program -> {SKIP_OS}};
199         if (@{$program -> {SKIP_OS}}) {
200             if (grep {$^O eq $_} @{$program -> {SKIP_OS}}) {
206         map {s/\$datafile/$datafile/} @{$program -> {ARGS}};
207         $program -> {EXPECT} = $JaPH unless exists $program -> {EXPECT};
208         $program -> {EXPECT} =~ s/\$JaPH_s\b/$JaPH_s/g;
209         $program -> {EXPECT} =~ s/\$JaPh_c\b/$JaPh_c/g;
210         $program -> {EXPECT} =~ s/\$JaPh\b/$JaPh/g;
211         chomp ($program -> {EXPECT}, @{$program -> {SWITCHES}},
212                                      @{$program -> {ARGS}});
213         fresh_perl_is ($program -> {CODE},
214                        $program -> {EXPECT},
215                       {switches => $program -> {SWITCHES},
216                        args     => $program -> {ARGS},
218                        $program -> {COMMENT});
253     foreach my $program (@programs) {
255         print   $fh $program;