Document the hint constants and where they're used.

[perl5.git] / lib / filetest.pm

diff --git a/lib/filetest.pm b/lib/filetest.pm
index 7eb58a6..8aa4a77 100644 (file)
--- a/lib/filetest.pm
+++ b/lib/filetest.pm
@@ -50,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' ) {