From: Jens T. Berger Thielemann <jensthi@ifi.uio.no>
Date: Tue, 1 Apr 1997 13:34:47 +0000 (+0200)
Subject: Fix POSIX::raise()
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=eea074c3ea78f67828c62a0ffb638a436fab370e;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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 {