22 lines
326 B
Perl
22 lines
326 B
Perl
#!/usr/bin/perl
|
|
|
|
#generate a process with large argv for proc_args testing
|
|
|
|
use strict;
|
|
|
|
if (@ARGV) {
|
|
print "pid=$$\n";
|
|
<STDIN>;
|
|
}
|
|
else {
|
|
my(@argv);
|
|
my $nargs = 126;
|
|
my $arglen = 256;
|
|
my $arg = 'a';
|
|
for (my $i=0; $i<$nargs; $i++) {
|
|
push @argv, $arg++ x $arglen;
|
|
}
|
|
|
|
exec $^X, $0, @argv;
|
|
}
|