summaryrefslogtreecommitdiff
path: root/lib/filetest.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/filetest.pm')
-rw-r--r--lib/filetest.pm6
1 files changed, 4 insertions, 2 deletions
diff --git a/lib/filetest.pm b/lib/filetest.pm
index d08f9b4d48..b52a9b484d 100644
--- a/lib/filetest.pm
+++ b/lib/filetest.pm
@@ -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";
}