Change 34914 by [EMAIL PROTECTED] on 2008/11/25 17:47:11
A correction to change 34909 - we want *different* constants.
Affected files ...
... //depot/perl/ext/B/t/deparse.t#45 edit
Differences ...
==== //depot/perl/ext/B/t/deparse.t#45 (text) ====
Index: perl/ext/B/t/deparse.t
--- perl/ext/B/t/deparse.t#44~34909~ 2008-11-25 07:48:04.000000000 -0800
+++ perl/ext/B/t/deparse.t 2008-11-25 09:47:11.000000000 -0800
@@ -157,7 +157,7 @@
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 @@
warn PI;
####
# 63 tests for deparsing imported constants
-warn O_EXCL;
+warn O_TRUNC;
####
# 64 tests for deparsing re-exported constants
warn O_CREAT;
End of Patch.
