Lines Matching refs:Path

25 use File::Path qw(mkpath rmtree);
226     foreach my $Path (sort keys(%Files))
228         my $Inst = $Path;
230         if(-d $Path)
237             copy($Path, $Inst);
244     my $Path = $_[0];
245     return "" if(not $Path or not -f $Path);
246     open(FILE, $Path) || die ("can't open file \'$Path\': $!\n");
255     my ($Path, $Content) = @_;
256     return if(not $Path);
257     open(FILE, ">".$Path) || die ("can't open file \'$Path\': $!\n");