Lines Matching refs:Path

28 use File::Path qw(mkpath rmtree);
253     foreach my $Path (sort keys(%Files))
255         if($Path=~/Targets\//)
259         my $Inst = $Path;
261         if(-d $Path)
268             copy($Path, $Inst);
275     my $Path = $_[0];
276     return "" if(not $Path or not -f $Path);
277     open(FILE, $Path) || die ("can't open file \'$Path\': $!\n");
286     my ($Path, $Content) = @_;
287     return if(not $Path);
288     open(FILE, ">".$Path) || die ("can't open file \'$Path\': $!\n");