Lines Matching refs:files
38 my $files = 0;
54 $files++;
62 print "1.." . (scalar(@prgs)-$files) . "\n";
80 my(@files) = split(/\n--FILE--\s*([^\s\n]*)\s*\n/, $prog) ;
81 shift @files ;
83 scalar(@files) . "[" . join("%%%%", @files) ."]\n"
84 if @files % 2 ;
85 while (@files > 2) {
86 my $filename = shift @files ;
87 my $code = shift @files ;
97 shift @files ;
98 $prog = shift @files ;