avoid warnings in POSIX.pm (from Barrie Slaymaker)

p4raw-id: //depot/perl@6131

diff --git a/ext/POSIX/POSIX.pm b/ext/POSIX/POSIX.pm
index 9416f70..d4d9c33 100644 (file)
--- a/ext/POSIX/POSIX.pm
+++ b/ext/POSIX/POSIX.pm
@@ -565,9 +565,9 @@ sub chmod {
 sub fstat {
     usage "fstat(fd)" if @_ != 1;
     local *TMP;
-    open(TMP, "<&$_[0]");              # Gross.
+    CORE::open(TMP, "<&$_[0]");                # Gross.
     my @l = CORE::stat(TMP);
-    close(TMP);
+    CORE::close(TMP);
     @l;
 }