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

diff --git a/ext/POSIX/POSIX.pm b/ext/POSIX/POSIX.pm
index 6656443..2885c0d 100644 (file)
--- 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 {