Lines Matching +full:sub +full:- +full:components

10 sub create_file {
24     my $top = getcwd . "/ustar-pathnames-1";
27     my $subdir = "x" . "x" x (92 - length $top);
51     system "pax -wf ustar.ok $work94";
58     system "pax -rf ustar.ok";
61     system "diff -ru $orig $top";
67     # 256 chars (with components < 100 chars) should not work
69     push @l, length $paths[-1];
70     create_file $paths[-1];
71     system "pax -wf ustar.fail1 $work94";
74     # Components with 100 chars shouldn't work
75     unlink $paths[-1];
76     $paths[-1] = "$work94/${x95}xc100";		# 100 char filename
77     $l[-1] = length $paths[-1];
78     create_file $paths[-1];
79     system "pax -wf ustar.fail2 $work94";
82     unlink $paths[-1];
83     $paths[-1] = "$work94/${x95}xc100/x";	# 100 char component
84     $l[-1] = length $paths[-1];
85     create_file $paths[-1];
86     system "pax -wf ustar.fail3 $work94";