more efficient Text::Abbrev (from M.E. O'Neill <oneill@cs.sfu.ca>)

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

diff --git a/lib/filetest.pm b/lib/filetest.pm
index 65fc170..b52a9b4 100644 (file)
--- a/lib/filetest.pm
+++ b/lib/filetest.pm
@@ -5,7 +5,7 @@ package filetest;
 filetest - Perl pragma to control the filetest permission operators
 
 =head1 SYNOPSIS
-    
+
     $can_perhaps_read = -r "file";     # use the mode bits
     {
         use filetest 'access';         # intuit harder
@@ -47,9 +47,11 @@ operators is a filename, not when it is a filehandle.
 
 =cut
 
+$filetest::hint_bits = 0x00400000;
+
 sub import {
     if ( $_[1] eq 'access' ) {
-       $^H |= 0x00400000;
+       $^H |= $filetest::hint_bits;
     } else {
        die "filetest: the only implemented subpragma is 'access'.\n";
     }
@@ -57,7 +59,7 @@ sub import {
 
 sub unimport {
     if ( $_[1] eq 'access' ) {
-       $^H &= ~0x00400000;
+       $^H &= ~$filetest::hint_bits;
     } else {
        die "filetest: the only implemented subpragma is 'access'.\n";
     }