Lines Matching refs:files
50 my(@files) = split(/\n--FILE--\s*([^\s\n]*)\s*\n/, $prog) ;51 shift @files ;53 scalar(@files) . "[" . join("%%%%", @files) ."]\n"54 if @files % 2 ;55 while (@files > 2) {56 my $filename = shift @files ;57 my $code = shift @files ;64 shift @files ;65 $prog = shift @files ;