diff options
-rw-r--r-- | ext/B/t/deparse.t | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/ext/B/t/deparse.t b/ext/B/t/deparse.t index a0889b8b64..e2ac4e4db1 100644 --- a/ext/B/t/deparse.t +++ b/ext/B/t/deparse.t @@ -157,8 +157,8 @@ use warnings; use constant GLIPP => 'glipp'; use constant PI => 4; use constant OVERLOADED_NUMIFICATION => bless({}, 'Moo'); -use Fcntl qw/O_NONBLOCK O_SYNC O_EXCL/; -BEGIN { delete $::Fcntl::{O_SYNC}; } +use Fcntl qw/O_EXCL O_APPEND O_EXCL/; +BEGIN { delete $::Fcntl::{O_APPEND}; } use POSIX qw/O_CREAT/; sub test { my $val = shift; @@ -565,13 +565,13 @@ if (do { ++$a; GLIPP }) { x(); } warn PI; #### # 63 tests for deparsing imported constants -warn O_NONBLOCK; +warn O_EXCL; #### # 64 tests for deparsing re-exported constants warn O_CREAT; #### # 65 tests for deparsing imported constants that got deleted from the original namespace -warn O_SYNC; +warn O_APPEND; #### # SKIP ? $Config::Config{useithreads} && "TODO doesn't work with threads" # 66 tests for deparsing constants which got turned into full typeglobs |