X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=ext%2FPOSIX%2FPOSIX.pm;h=b95249ce43659288c4d70ac4504ea7499d6968e7;hb=276493cb78ba879defeed992c4543a6fe30f98ce;hp=ce315dcf7c5a06fadd6c9d38a9505c07f462f615;hpb=774d564bb7dd1ed64ca0d7e534aa67e93f991f02;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/ext/POSIX/POSIX.pm b/ext/POSIX/POSIX.pm
index ce315dc..b95249c 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.00" ;
+$VERSION = "1.02" ;
 
 %EXPORT_TAGS = (
 
@@ -115,7 +115,7 @@ $VERSION = "1.00" ;
     sys_stat_h => [qw(S_IRGRP S_IROTH S_IRUSR S_IRWXG S_IRWXO S_IRWXU
 		S_ISBLK S_ISCHR S_ISDIR S_ISFIFO S_ISGID S_ISREG
 		S_ISUID S_IWGRP S_IWOTH S_IWUSR S_IXGRP S_IXOTH S_IXUSR
-		fstat mkfifo)],
+		fstat mkfifo mknod)],
 
     sys_times_h => [qw()],
 
@@ -179,6 +179,7 @@ Exporter::export_tags();
     alarm chdir chown close fork getlogin getppid getpgrp link
 	pipe read rmdir sleep unlink write
     utime
+    nice
 );
 
 # Grandfather old foo_h form to new :foo_h form
@@ -386,7 +387,7 @@ sub kill {
 
 sub raise {
     usage "raise(sig)" if @_ != 1;
-    kill $$, $_[0];	# Is this good enough?
+    kill $_[0], $$;	# Is this good enough?
 }
 
 sub offsetof {
@@ -826,7 +827,14 @@ sub fork {
 sub getcwd
 {
     usage "getcwd()" if @_ != 0;
-    chop($cwd = `pwd`);
+    if ($^O eq 'MSWin32') {
+	# this perhaps applies to everyone else also?
+	require Cwd;
+	$cwd = &Cwd::cwd;
+    }
+    else {
+	chop($cwd = `pwd`);
+    }
     $cwd;
 }