[p5sagit/p5-mst-13.2.git] / lib / auto / POSIX / raise.al

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

sub raise {
    usage "raise(sig)", caller if @_ != 1;
    kill $$, $_[0];	# Is this good enough?
}

1;
Commit	Line	Data
85e6fe83	1	# NOTE: Derived from POSIX.pm. Changes made here will be lost.
	2	package POSIX;
	3
	4	sub raise {
	5	usage "raise(sig)", caller if @_ != 1;
	6	kill $$, $_[0]; # Is this good enough?
	7	}
	8
	9	1;