Lines Matching refs:dirtree
948 local ($basedir, %dirtree) = @_;
954 foreach $path (sort keys (%dirtree))
956 if ($dirtree {$path} =~ /^DIR$/)
961 elsif ($dirtree {$path} =~ /^FILE:(.*)$/)
965 elsif ($dirtree {$path} =~ /^LINK:(.*)$/)
972 &error ("Bogus dirtree type: \"$dirtree{$path}\"\n", 1);
988 local ($basedir, %dirtree) = @_;
1004 print "dirtree: (%dirtree)\n$basedir: (@allfiles)\n";
1007 foreach $path (sort keys (%dirtree))
1011 print "Checking $path ($dirtree{$path}).\n";
1037 if ($dirtree {$path} =~ /^DIR$/)
1056 elsif ($dirtree {$path} =~ /^FILE:(.*)$/)
1076 elsif ($dirtree {$path} =~ /^LINK:(.*)$/)
1103 &error ("Bogus dirtree type: \"$dirtree{$path}\"\n", 1);
