Lines Matching refs:files
31 my(@files) = split(/\n--FILE--\s*([^\s\n]*)\s*\n/, $prog) ;32 shift @files ;34 scalar(@files) . "[" . join("%%%%", @files) ."]\n"35 if @files % 2 ;36 while (@files > 2) {37 my $filename = shift @files ;38 my $code = shift @files ;44 shift @files ;45 $prog = shift @files ;