Michael Schroeder's fix for re-try if stdio ops after

[p5sagit/p5-mst-13.2.git] / lib / filetest.pm

diff --git a/lib/filetest.pm b/lib/filetest.pm
index b52a9b4..8aa4a77 100644 (file)
--- a/lib/filetest.pm
+++ b/lib/filetest.pm
@@ -1,5 +1,7 @@
 package filetest;
 
+our $VERSION = '1.00';
+
 =head1 NAME
 
 filetest - Perl pragma to control the filetest permission operators
@@ -36,7 +38,8 @@ B<NOTE>: using the file tests for security purposes is a lost cause
 from the start: there is a window open for race conditions (who is to
 say that the permissions will not change between the test and the real
 operation?).  Therefore if you are serious about security, just try
-the real operation and test for its success.  Think atomicity.
+the real operation and test for its success - think in terms of atomic
+operations.
 
 =head2 subpragma access
 
@@ -47,7 +50,7 @@ operators is a filename, not when it is a filehandle.
 
 =cut
 
-$filetest::hint_bits = 0x00400000;
+$filetest::hint_bits = 0x00400000; # HINT_FILETEST_ACCESS
 
 sub import {
     if ( $_[1] eq 'access' ) {