Lines Matching refs:dir
293 opendir my $dir, $path or return -1;
296 while (my $entry = readdir($dir))
655 my ($dir) = @_;
660 opendir(DIR, $dir);
954 my ($dir, $extension) = @_;
958 $dir =~ s/\Q$installer::globals::separator\E\s*$//;
962 $infoline = "Renaming files with extension \"$extension\" in the directory $dir\n";
965 opendir(DIR, $dir);
978 my $sourcefile = $dir . $installer::globals::separator . $onefile;
979 $destfile = $dir . $installer::globals::separator . $destfile;
996 my ($extension, $dir) = @_;
1000 $dir =~ s/\Q$installer::globals::separator\E\s*$//;
1004 $infoline = "Searching files with extension \"$extension\" in the directory $dir\n";
1007 opendir(DIR, $dir);
1084 my ($dir, $languagestringref) = @_;
1086 my $basedir = $dir;
1763 my ( $dir ) = @_;
1768 $dir =~ s/\Q$installer::globals::separator\E\s*$//;
1770 if ( -d $dir )
1772 opendir(DIR, $dir);
1782 my $item = $dir . $installer::globals::separator . $oneitem;
1792 $installer::logger::Info->printf("remove_empty_dirs_in_folder %s\n", $dir);
1793 my $returnvalue = rmdir $dir;
1797 $installer::logger::Lang->printf("Successfully removed empty dir %s\n", $dir);