This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fix O_CREAT without O_TRUNC in cpan/autodie/t/utf8_open.t
authorCraig A. Berry <craigberry@mac.com>
Fri, 13 Sep 2013 19:59:01 +0000 (14:59 -0500)
committerCraig A. Berry <craigberry@mac.com>
Fri, 13 Sep 2013 20:49:07 +0000 (15:49 -0500)
Awaiting upstream application as [CPAN RT#87237].

Porting/Maintainers.pl
cpan/autodie/t/utf8_open.t
t/porting/customized.dat

index 3e8d595..4651c1f 100755 (executable)
@@ -250,6 +250,8 @@ use File::Glob qw(:case);
         'CUSTOMIZED'   => [
             # Waiting to be merged upstream: see CPAN RT#88444
             qw(        t/utime.t ),
         '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',
     },
         ],
         'UPSTREAM'   => 'cpan',
     },
index 1cc2df0..d328853 100644 (file)
@@ -96,7 +96,7 @@ else {
 
     # open for writing only
     {
 
     # 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;
 
         my @layers = PerlIO::get_layers($fh);
         ok( (grep { $_ eq 'utf8' } @layers), "open write honors open pragma" ) or diag join ", ", @layers;
index 9ec8e86..a0c06b6 100644 (file)
@@ -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
 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
 autodie cpan/autodie/t/utime.t e2491f81cddc128097ffa1aa91b86db993116286
 libnet cpan/libnet/Makefile.PL 6b10ac98e672bfebb8f49b9720a93442645208b3
 podlators cpan/podlators/scripts/pod2man.PL f81acf53f3ff46cdcc5ebdd661c5d13eb35d20d6