Lines Matching refs:path

949   local ($path);
954   foreach $path (sort keys (%dirtree))
956     if ($dirtree {$path} =~ /^DIR$/)
958       mkdir ("$basedir/$path", 0777)
959                || &error ("Couldn't mkdir $basedir/$path: $!\n", 1);
961     elsif ($dirtree {$path} =~ /^FILE:(.*)$/)
963       &create_file ("$basedir/$path", $1 . "\n");
965     elsif ($dirtree {$path} =~ /^LINK:(.*)$/)
967       symlink ("$basedir/$1", "$basedir/$path")
968         || &error ("Couldn't symlink $basedir/$path -> $basedir/$1: $!\n", 1);
972       &error ("Bogus dirtree type: \"$dirtree{$path}\"\n", 1);
989   local ($path);
1007   foreach $path (sort keys (%dirtree))
1011       print "Checking $path ($dirtree{$path}).\n";
1017       if ($allfiles[$i] eq $path)
1022           print "     Zapped $path; files now (@allfiles).\n";
1024         lstat ("$basedir/$path");
1032       print "compare_dir_tree: $path does not exist.\n";
1037     if ($dirtree {$path} =~ /^DIR$/)
1039       if (-d _ && opendir (DIR, "$basedir/$path") )
1043         @files = grep (!/^(\.\.?|CVS|RCS)$/ && ($_ = "$path/$_"), @files);
1047           print "     Read in $path; new files (@files).\n";
1052         print "compare_dir_tree: $path is not a dir.\n";
1056     elsif ($dirtree {$path} =~ /^FILE:(.*)$/)
1060         print "compare_dir_tree: $path is not a file.\n";
1067         $contents = &read_file_into_string ("$basedir/$path");
1070           print "compare_dir_tree: $path contains wrong stuff."
1076     elsif ($dirtree {$path} =~ /^LINK:(.*)$/)
1081         print "compare_dir_tree: $path is not a link.\n";
1086       $contents = readlink ("$basedir/$path");
1096         print "compare_dir_tree: $path should be link to $target, "
1103       &error ("Bogus dirtree type: \"$dirtree{$path}\"\n", 1);