Lines Matching refs:directory
77 my ($directory) = @_;
81 if (!(-d $directory))
83 $returnvalue = mkdir($directory, 0775);
87 $infoline = "\nCreated directory: $directory\n";
92 my $localcall = "chmod 775 $directory \>\/dev\/null 2\>\&1";
98 …packager::exiter::exit_program("ERROR: Could not create directory: $directory", "create_directory"…
109 my ($directory) = @_;
111 $directory =~ s/\Q$packager::globals::separator\E\s*$//;
112 $directory = $directory . "_INCREASINGNUMBER";
120 $localdirectory = $directory;
141 my ($directory) = @_;
145 $directory =~ s/\Q$packager::globals::separator\E\s*$//;
147 if ( -d $directory )
149 opendir(DIR, $directory);
159 my $item = $directory . $packager::globals::separator . $oneitem;
175 rmdir $directory;