Change 34909 by [EMAIL PROTECTED] on 2008/11/25 15:48:04
Tweak the constants used in testing to constants that Win32 also has.
Affected files ...
... //depot/perl/ext/B/t/deparse.t#44 edit
Differences ...
==== //depot/perl/ext/B/t/deparse.t#44 (text) ====
Index: perl/ext/B/t/deparse.t
--- perl/ext/B/t/deparse.t#43~34864~ 2008-11-17 02:06:08.000000000 -0800
+++ perl/ext/B/t/deparse.t 2008-11-25 07:48:04.000000000 -0800
@@ -157,8 +157,8 @@
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 @@
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
End of Patch.
