[perl5.git] / lib / auto / POSIX / execvp.al

# NOTE:  Derived from POSIX.pm.  Changes made here will be lost.
package POSIX;

sub execvp {
    unimpl "execvp(xxx)", caller if @_ != 123;
    execvp($_[0]);
}

1;
Commit	Line	Data
85e6fe83 LW	1	# NOTE: Derived from POSIX.pm. Changes made here will be lost.
	2	package POSIX;
	3
	4	sub execvp {
	5	unimpl "execvp(xxx)", caller if @_ != 123;
	6	execvp($_[0]);
	7	}
	8
	9	1;