Lines Matching refs:dir
302 my ( $dir, $firstrun ) = @_;
311 $dir =~ s/\Q$separator\E\s*$//;
313 if ( -d $dir )
315 opendir(DIR, $dir);
325 my $item = $dir . $separator . $oneitem;
335 my $returnvalue = rmdir $dir;
366 my ($extension, $dir) = @_;
371 $dir =~ s/\Q$separator\E\s*$//;
373 opendir(DIR, $dir);
722 my $dir = $1;
732 $table{$dir} = \%helphash;
756 my $dir = $3;
758 $table{$component} = $dir;
814 foreach my $dir ( keys %{$dirhash} )
816 …if (( $dirhash->{$dir}->{'Directory_Parent'} eq $parent ) && ( $dirhash->{$dir}->{'DefaultDir'} ne…
818 my $dirname = $dirhash->{$dir}->{'DefaultDir'};
823 $pathcollector->{$dir} = $newdir;
825 create_directory_tree($dir, $pathcollector, $newdir, $dirhash);
844 foreach $dir (@startparents) { create_directory_tree($dir, \%fullpathhash, $targetdir, $dirhash); }
847 foreach $dir (@startparents)
849 if ( ! exists($fullpathhash{$dir}) ) { $fullpathhash{$dir} = $targetdir; }