Lines Matching refs:dir

217 foreach my $dir (@podpath) {
218     installdir($dir, $recurse, $podroot, \@splitdirs, \@ignore);
223 foreach my $dir (@splititem) {
224     print "creating index $htmldir/$dir.html\n" if $verbose;
225     create_index("$htmldir/$dir.html", "$htmldir/$dir");
228 foreach my $dir (@splithead) {
229     (my $pod = $dir) =~ s,^.*/,,;
230     $dir .= ".pod" unless $dir =~ /(\.pod|\.pm)$/;
232     runpod2html($dir, 1);
235     $dir =~ /^(.*?)(\.pod|\.pm)?$/sm;
299     my($html, $dir) = @_;
300     (my $pod = $dir) =~ s,^.*/,,;
303     opendir(DIR, $dir) ||
304 	die "$0: error opening directory $dir for reading: $!\n";
317 	    open(my $in, '<', "$dir/$file") ||
318 		die "$0: error opening $dir/$file for input: $!\n";
327 	defined $lcp1 or die "$0: can't find NAME section in $dir/$file\n";
329 	my $url= "$dir/$file" ;
441     my $dir = $pod;
442     $dir =~ s/\.pod//g;
443     push(@$splitdirs, "$poddir/$dir");
444     -d "$poddir/$dir" and remove_tree("$poddir/$dir", {safe=>1});
445     mkdir("$poddir/$dir", 0755) ||
446 	die "$0: could not create directory $poddir/$dir: $!\n";
467 	$file = "$dir/" . anchorify($section) . ".pod";
474 			defined $heads{anchorify($1)} ? "L<$dir/$1>" : "L<$1>"
478 	print SPLITOUT "=item *\n\nBack to L<$dir/\"$prevsec\">\n\n" if $prevsec;
479 	print SPLITOUT "=item *\n\nForward to L<$dir/\"$nextsec\">\n\n" if $nextsec;
480 	print SPLITOUT "=item *\n\nUp to L<$dir>\n\n";
493     my($dir, $recurse, $podroot, $splitdirs, $ignore) = @_;
500     my $doindex = (grep($_ eq "$podroot/$dir", @$splitdirs) ? 0 : 1);
502     opendir(DIR, "$podroot/$dir")
503 	|| die "$0: error opening directory $podroot/$dir: $!\n";
507 	my $is_dir = -d "$podroot/$dir/$_";
515 	push @$target, "$dir/$_" if $target;
520     if ($^O eq 'VMS') { s/\.dir$//i for @dirlist }
523     foreach $dir (@dirlist) {
524 	installdir($dir, $recurse, $podroot, $splitdirs, $ignore);
559     my($html, $i, $dir, @dirs);
566     $dir  = "$htmldir/";
568 	if (! -d "$dir$dirs[$i]") {
569 	    mkdir("$dir$dirs[$i]", 0755) ||
570 		die "$0: error creating directory $dir$dirs[$i]: $!\n";
572 	$dir .= "$dirs[$i]/";