Lines Matching refs:text
6 for my $text (<*.txt>) {
7 open I, '<', $text || die "cannot read: $text";
13 $include{$text}{$_} = 1;
24 while (my ($text, $included) = each %include) {
26 # $text has include::$i; if $i includes $j
27 # $text indirectly includes $j.
30 if (!exists $include{$text}{$j}) {
31 $include{$text}{$j} = 1;
41 while (my ($text, $included) = each %include) {
42 if (! exists $included{$text} &&
43 (my $base = $text) =~ s/\.txt$//) {