From: Nicholas Clark <nick@ccl4.org>
Date: Tue, 25 Nov 2008 17:47:11 +0000 (+0000)
Subject: A correction to change 34909 - we want *different* constants.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3779476a6bed97edfde7af0ddf0dacbcabd31a1f;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;