Lines Matching refs:top
25 my $top = getcwd . "/ustar-pathnames-1";
26 skip "Current path is too long", 6 if length $top > 92;
27 rmtree $top;
28 my $subdir = "x" . "x" x (92 - length $top);
29 my $work94 = "$top/$subdir";
55 (my $orig = $top) =~ s,1$,2,;
57 rename $top, $orig;
62 system "diff -ru $orig $top";
65 rmtree $top;
66 rename $orig, $top;