diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-04 21:55:03 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-04 21:55:03 +0000 |
| commit | d5448623582779336009dd8bafd91e2a4ca7c599 (patch) | |
| tree | 8c44a139ca3d1e950415b5229fd41ee183f96f20 /lib/filetest.pm | |
| parent | c0961f019733ac906a65ac3bd8f2f21194179c1e (diff) | |
| download | perl-d5448623582779336009dd8bafd91e2a4ca7c599.tar.gz | |
make hints available via globals in the respective pragmas to
avoid duplicating the constants everywhere
p4raw-id: //depot/perl@5527
Diffstat (limited to 'lib/filetest.pm')
| -rw-r--r-- | lib/filetest.pm | 6 |
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"; } |