On Tue, Nov 25, 2008 at 05:32:30PM -0000, Steve Hay wrote:
> ...is it intentional that you have O_EXCEL twice in the above line?
No. Well spotted. Now updated.
Nicholas Clark
Change 34914 by nicholas@nicholas-saigo 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) ====
@@ -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;
Thread Previous