From: Nicholas Clark <nick@ccl4.org>
Date: Tue, 25 Nov 2008 15:48:04 +0000 (+0000)
Subject: Tweak the constants used in testing to constants that Win32 also has.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=aaf9c2b26697492a8234a7efe890beef8868ea9b;p=p5sagit%2Fp5-mst-13.2.git

Tweak the constants used in testing to constants that Win32 also has.

p4raw-id: //depot/perl@34909
---

diff --git a/ext/B/t/deparse.t b/ext/B/t/deparse.t
index a0889b8..e2ac4e4 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