A correction to change 34909 - we want *different* constants.

p4raw-id: //depot/perl@34914

diff --git a/ext/B/t/deparse.t b/ext/B/t/deparse.t
index e2ac4e4..2f0f436 100644 (file)
--- a/ext/B/t/deparse.t
+++ b/ext/B/t/deparse.t
@@ -157,7 +157,7 @@ use warnings;
 use constant GLIPP => 'glipp';
 use constant PI => 4;
 use constant OVERLOADED_NUMIFICATION => bless({}, 'Moo');
-use Fcntl qw/O_EXCL O_APPEND O_EXCL/;
+use Fcntl qw/O_TRUNC O_APPEND O_EXCL/;
 BEGIN { delete $::Fcntl::{O_APPEND}; }
 use POSIX qw/O_CREAT/;
 sub test {
@@ -565,7 +565,7 @@ if (do { ++$a; GLIPP }) { x(); }
 warn PI;
 ####
 # 63 tests for deparsing imported constants
-warn O_EXCL;
+warn O_TRUNC;
 ####
 # 64 tests for deparsing re-exported constants
 warn O_CREAT;