Lines Matching refs:dir_arg

180   my $dir_arg = shift;
181   chomp $dir_arg;
182   $dir_arg =~ s/^\s*(.*)\s*$/$1/;
184   unless ( $dir_arg ) {
189   unless ( File::Spec->file_name_is_absolute($dir_arg) ) {
190     my $res = Cwd::realpath($dir_arg);
191     $res = File::Spec->canonpath($dir_arg) unless ( $res );
192     $dir_arg = $res if ( $res );
195   return $dir_arg if ( -d $dir_arg && -w $dir_arg );
199   my @dir_parts = File::Spec->splitdir($dir_arg);
214       die "Couldn't create dir '$dir_arg', it is blocked by '$dir_grow'."
220 	  "so I cannot create dir '$dir_arg': $!";
229       "so directory '$dir_arg' can't be createdd."
234     File::Path::make_path( $dir_arg,
240 	or die "Could not create directory '$dir_arg': $!";
245   die "'$dir_arg' is not a writable directory"
246     unless ( -d $dir_arg && -w $dir_arg );
248   return $dir_arg;