This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fcntl: more O_ constants, move SEEK_ to @EXPORT_OK
[perl5.git] / t / lib / syslfs.t
index 942bb4d..3b040dc 100644 (file)
@@ -11,7 +11,7 @@ BEGIN {
                print "1..0\n# no 64-bit file offsets\n";
                exit(0);
        }
-       require Fcntl; import Fcntl;
+       require Fcntl; import Fcntl qw(/^O_/ /^SEEK_/);
 }
 
 sub bye {