Lines Matching refs:dir
102 my ($s,$f,$dir,$action) = @_;
105 $d = "$dir/$d";
112 open O, ">$dir/$f" or die "open($dir/$f): $!";
157 ! -x $f or chmod(0755, "$dir/$f") or die "chmod($dir/$f): $!";
159 `cp -a "$f" "$dir/$f"`; die if $?;
168 my $dir = "$dd/$pkg";
169 print "Generating $dir\n";
186 $s->CopyFile($f, $dir, $action);
190 `mkdir -p $dir/$d`; die if $?;
193 if (-f "$dir/Makefile") {
195 `cd $dir && make distclean >&2`; die if $?;
217 return $dir;
298 my $dir = $2;
299 $dir =~ s@^/~@~@;
300 $dir =~ s@^/\./@@;
301 my $cmd = "scp @files $host:$dir\n";
305 my $dir = $2;
307 print FTP "cd $dir\n";