fix O_CREAT without O_TRUNC in cpan/autodie/t/utf8_open.t

Awaiting upstream application as [CPAN RT#87237].

diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
index 3e8d595..4651c1f 100755 (executable)
--- a/Porting/Maintainers.pl
+++ b/Porting/Maintainers.pl
@@ -250,6 +250,8 @@ use File::Glob qw(:case);
         'CUSTOMIZED'   => [
             # Waiting to be merged upstream: see CPAN RT#88444
             qw(        t/utime.t ),
+            # Waiting to be merged upstream: see CPAN RT#87237
+            qw(        t/utf8_open.t ),
         ],
         'UPSTREAM'   => 'cpan',
     },

diff --git a/cpan/autodie/t/utf8_open.t b/cpan/autodie/t/utf8_open.t
index 1cc2df0..d328853 100644 (file)
--- a/cpan/autodie/t/utf8_open.t
+++ b/cpan/autodie/t/utf8_open.t
@@ -96,7 +96,7 @@ else {
 
     # open for writing only
     {
-        sysopen my $fh, $file, O_CREAT|O_WRONLY;
+        sysopen my $fh, $file, O_CREAT|O_TRUNC|O_WRONLY;
 
         my @layers = PerlIO::get_layers($fh);
         ok( (grep { $_ eq 'utf8' } @layers), "open write honors open pragma" ) or diag join ", ", @layers;

diff --git a/t/porting/customized.dat b/t/porting/customized.dat
index 9ec8e86..a0c06b6 100644 (file)
--- a/t/porting/customized.dat
+++ b/t/porting/customized.dat
@@ -15,6 +15,7 @@ Text::Balanced cpan/Text-Balanced/t/08_extvar.t 0776ef2cbdad5b1fbefb300541d07921
 Text::Balanced cpan/Text-Balanced/t/09_gentag.t 42361b5dfb3bb728bce20f4fb0d92ccfb27c2ba7
 Text::ParseWords cpan/Text-ParseWords/t/ParseWords.t 9bae51c9b944cd5c0bbabe9d397e573976a2be8e
 Text::ParseWords cpan/Text-ParseWords/t/taint.t 3cff0dae812801f7aa1738d6070508f2c5bcc2e5
+autodie cpan/autodie/t/utf8_open.t 5295851351c49f939008c5aca6a798742b1e503d
 autodie cpan/autodie/t/utime.t e2491f81cddc128097ffa1aa91b86db993116286
 libnet cpan/libnet/Makefile.PL 6b10ac98e672bfebb8f49b9720a93442645208b3
 podlators cpan/podlators/scripts/pod2man.PL f81acf53f3ff46cdcc5ebdd661c5d13eb35d20d6