diff options
| author | Jens T. Berger Thielemann <jensthi@ifi.uio.no> | 1997-04-01 15:34:47 +0200 |
|---|---|---|
| committer | Chip Salzenberg <chip@atlantic.net> | 1997-04-01 12:01:35 +1200 |
| commit | eea074c3ea78f67828c62a0ffb638a436fab370e (patch) | |
| tree | b064743936bcb63db7c24c3c4b5d55ec1074d172 | |
| parent | d8fec9985e10ff4bcf081e16d22cc39c3914edb9 (diff) | |
| download | perl-eea074c3ea78f67828c62a0ffb638a436fab370e.tar.gz | |
Fix POSIX::raise()
[editor's note: Chip credited Jens with the fix, but the message
doesn't have a patch. *shrug*]
p5p-msgid: Pine.SUN.3.91.970401153125.8053A-100000@holmenkollen.ifi.uio.no
| -rw-r--r-- | ext/POSIX/POSIX.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ext/POSIX/POSIX.pm b/ext/POSIX/POSIX.pm index 6656443483..2885c0d84c 100644 --- a/ext/POSIX/POSIX.pm +++ b/ext/POSIX/POSIX.pm @@ -11,7 +11,7 @@ require Exporter; require DynaLoader; @ISA = qw(Exporter DynaLoader); -$VERSION = "1.01" ; +$VERSION = "1.02" ; %EXPORT_TAGS = ( @@ -386,7 +386,7 @@ sub kill { sub raise { usage "raise(sig)" if @_ != 1; - kill $$, $_[0]; # Is this good enough? + kill $_[0], $$; # Is this good enough? } sub offsetof { |