From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Wed, 22 Jan 2003 21:00:59 +0000 (+0000)
Subject: Fix [perl #19860] by adding a POSIX::fsync() stub.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f0709b241ca4633837a71ebb25b49d6477a9b61f;p=p5sagit%2Fp5-mst-13.2.git

Fix [perl #19860] by adding a POSIX::fsync() stub.

p4raw-id: //depot/perl@18569
---

diff --git a/ext/POSIX/POSIX.pm b/ext/POSIX/POSIX.pm
index 5a1cbb9..74a014f 100644
--- a/ext/POSIX/POSIX.pm
+++ b/ext/POSIX/POSIX.pm
@@ -282,6 +282,10 @@ sub fseek {
     redef "IO::Seekable::seek()";
 }
 
+sub fsync {
+    redef "IO::Handle::sync()";
+}
+
 sub ferror {
     redef "IO::Handle::error()";
 }
@@ -878,7 +882,7 @@ sub load_imports {
 		_SC_STREAM_MAX _SC_TZNAME_MAX _SC_VERSION
 		_exit access ctermid cuserid
 		dup2 dup execl execle execlp execv execve execvp
-		fpathconf getcwd getegid geteuid getgid getgroups
+		fpathconf fsync getcwd getegid geteuid getgid getgroups
 		getpid getuid isatty lseek pathconf pause setgid setpgid
 		setsid setuid sysconf tcgetpgrp tcsetpgrp ttyname)],
 
diff --git a/ext/POSIX/POSIX.pod b/ext/POSIX/POSIX.pod
index 4d1ded6..dd2071b 100644
--- a/ext/POSIX/POSIX.pod
+++ b/ext/POSIX/POSIX.pod
@@ -465,6 +465,10 @@ Perl's builtin C<stat> function.
 	$fd = POSIX::open( "foo", &POSIX::O_RDONLY );
 	@stats = POSIX::fstat( $fd );
 
+=item fsync
+
+Use method C<IO::Handle::sync()> instead.
+
 =item ftell
 
 Use method C<IO::Seekable::tell()> instead, or see L<perlfunc/tell>.