In perl.git, the branch smoke-me/leont/perlio-win32 has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/e97e40a8d383aaa50835f956c20abd3f4a1deae5?hp=0b4755b186f82898af5e87b399a19617464b7e65>
- Log -----------------------------------------------------------------
commit e97e40a8d383aaa50835f956c20abd3f4a1deae5
Author: Leon Timmermans <faw...@gmail.com>
Date: Tue Jul 8 01:32:42 2014 +0200
Revert "add a warning for using the :win32 PerlIO layer"
This reverts commit 7ac929242683a823b48fb2fae8e9fa6be059fa5a.
Conflicts:
lib/warnings.pm
regen/warnings.pl
warnings.h
-----------------------------------------------------------------------
Summary of changes:
lib/warnings.pm | 33 ++++++++++++++++-----------------
pod/perldiag.pod | 8 --------
regen/warnings.pl | 6 ++++--
t/lib/warnings/perlio | 14 --------------
t/op/caller.t | 4 ++--
warnings.h | 5 ++---
win32/win32io.c | 5 -----
7 files changed, 24 insertions(+), 51 deletions(-)
diff --git a/lib/warnings.pm b/lib/warnings.pm
index a08be18..3aa6ed7 100644
--- a/lib/warnings.pm
+++ b/lib/warnings.pm
@@ -5,7 +5,11 @@
package warnings;
+<<<<<<< HEAD
our $VERSION = '1.26';
+=======
+our $VERSION = '1.23';
+>>>>>>> parent of 7ac9292... add a warning for using the :win32 PerlIO layer
# Verify that we're called correctly so that warnings will work.
# see also strict.pm.
@@ -276,8 +280,6 @@ The current hierarchy is:
| +- experimental::signatures
| |
| +- experimental::smartmatch
- | |
- | +- experimental::win32_perlio
|
+- glob
|
@@ -825,13 +827,12 @@ our %Offsets = (
# Warnings Categories added in Perl 5.021
- 'experimental::win32_perlio'=> 120,
- 'missing' => 122,
- 'redundant' => 124,
+ 'missing' => 120,
+ 'redundant' => 122,
);
our %Bits = (
- 'all' =>
"\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x15", # [0..62]
+ 'all' =>
"\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x05", # [0..61]
'ambiguous' =>
"\x00\x00\x00\x00\x00\x00\x00\x04\x00\x00\x00\x00\x00\x00\x00\x00", # [29]
'bareword' =>
"\x00\x00\x00\x00\x00\x00\x00\x10\x00\x00\x00\x00\x00\x00\x00\x00", # [30]
'closed' =>
"\x00\x10\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [6]
@@ -841,7 +842,7 @@ our %Bits = (
'digit' =>
"\x00\x00\x00\x00\x00\x00\x00\x40\x00\x00\x00\x00\x00\x00\x00\x00", # [31]
'exec' =>
"\x00\x40\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [7]
'exiting' =>
"\x40\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [3]
- 'experimental' =>
"\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x40\x55\x15\x01", #
[51..58,60]
+ 'experimental' =>
"\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x40\x55\x15\x00", # [51..58]
'experimental::autoderef'=>
"\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x01\x00", # [56]
'experimental::lexical_subs'=>
"\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x01\x00\x00", # [52]
'experimental::lexical_topic'=>
"\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x04\x00\x00", # [53]
@@ -849,7 +850,6 @@ our %Bits = (
'experimental::regex_sets'=>
"\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x10\x00\x00", # [54]
'experimental::signatures'=>
"\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x10\x00", # [58]
'experimental::smartmatch'=>
"\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x40\x00\x00", # [55]
- 'experimental::win32_perlio'=>
"\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x01", # [60]
'glob' =>
"\x00\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [4]
'illegalproto' =>
"\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x40\x00\x00\x00\x00", # [47]
'imprecision' =>
"\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x10\x00\x00\x00\x00", # [46]
@@ -859,7 +859,7 @@ our %Bits = (
'layer' =>
"\x00\x00\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [8]
'malloc' =>
"\x00\x00\x00\x00\x00\x00\x04\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [25]
'misc' =>
"\x00\x00\x00\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [12]
- 'missing' =>
"\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x04", # [61]
+ 'missing' =>
"\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x01", # [60]
'newline' =>
"\x00\x00\x04\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [9]
'non_unicode' =>
"\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x01\x00\x00\x00", # [48]
'nonchar' =>
"\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x04\x00\x00\x00", # [49]
@@ -876,7 +876,7 @@ our %Bits = (
'qw' =>
"\x00\x00\x00\x00\x00\x00\x00\x00\x00\x01\x00\x00\x00\x00\x00\x00", # [36]
'recursion' =>
"\x00\x00\x00\x00\x10\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [18]
'redefine' =>
"\x00\x00\x00\x00\x40\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [19]
- 'redundant' =>
"\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x10", # [62]
+ 'redundant' =>
"\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x04", # [61]
'regexp' =>
"\x00\x00\x00\x00\x00\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [20]
'reserved' =>
"\x00\x00\x00\x00\x00\x00\x00\x00\x00\x04\x00\x00\x00\x00\x00\x00", # [37]
'semicolon' =>
"\x00\x00\x00\x00\x00\x00\x00\x00\x00\x10\x00\x00\x00\x00\x00\x00", # [38]
@@ -897,7 +897,7 @@ our %Bits = (
);
our %DeadBits = (
- 'all' =>
"\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\x2a", # [0..62]
+ 'all' =>
"\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\x0a", # [0..61]
'ambiguous' =>
"\x00\x00\x00\x00\x00\x00\x00\x08\x00\x00\x00\x00\x00\x00\x00\x00", # [29]
'bareword' =>
"\x00\x00\x00\x00\x00\x00\x00\x20\x00\x00\x00\x00\x00\x00\x00\x00", # [30]
'closed' =>
"\x00\x20\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [6]
@@ -907,7 +907,7 @@ our %DeadBits = (
'digit' =>
"\x00\x00\x00\x00\x00\x00\x00\x80\x00\x00\x00\x00\x00\x00\x00\x00", # [31]
'exec' =>
"\x00\x80\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [7]
'exiting' =>
"\x80\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [3]
- 'experimental' =>
"\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x80\xaa\x2a\x02", #
[51..58,60]
+ 'experimental' =>
"\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x80\xaa\x2a\x00", # [51..58]
'experimental::autoderef'=>
"\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x02\x00", # [56]
'experimental::lexical_subs'=>
"\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x02\x00\x00", # [52]
'experimental::lexical_topic'=>
"\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x08\x00\x00", # [53]
@@ -915,7 +915,6 @@ our %DeadBits = (
'experimental::regex_sets'=>
"\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x20\x00\x00", # [54]
'experimental::signatures'=>
"\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x20\x00", # [58]
'experimental::smartmatch'=>
"\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x80\x00\x00", # [55]
- 'experimental::win32_perlio'=>
"\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x02", # [60]
'glob' =>
"\x00\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [4]
'illegalproto' =>
"\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x80\x00\x00\x00\x00", # [47]
'imprecision' =>
"\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x20\x00\x00\x00\x00", # [46]
@@ -925,7 +924,7 @@ our %DeadBits = (
'layer' =>
"\x00\x00\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [8]
'malloc' =>
"\x00\x00\x00\x00\x00\x00\x08\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [25]
'misc' =>
"\x00\x00\x00\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [12]
- 'missing' =>
"\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x08", # [61]
+ 'missing' =>
"\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x02", # [60]
'newline' =>
"\x00\x00\x08\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [9]
'non_unicode' =>
"\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x02\x00\x00\x00", # [48]
'nonchar' =>
"\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x08\x00\x00\x00", # [49]
@@ -942,7 +941,7 @@ our %DeadBits = (
'qw' =>
"\x00\x00\x00\x00\x00\x00\x00\x00\x00\x02\x00\x00\x00\x00\x00\x00", # [36]
'recursion' =>
"\x00\x00\x00\x00\x20\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [18]
'redefine' =>
"\x00\x00\x00\x00\x80\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [19]
- 'redundant' =>
"\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x20", # [62]
+ 'redundant' =>
"\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x08", # [61]
'regexp' =>
"\x00\x00\x00\x00\x00\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [20]
'reserved' =>
"\x00\x00\x00\x00\x00\x00\x00\x00\x00\x08\x00\x00\x00\x00\x00\x00", # [37]
'semicolon' =>
"\x00\x00\x00\x00\x00\x00\x00\x00\x00\x20\x00\x00\x00\x00\x00\x00", # [38]
@@ -963,8 +962,8 @@ our %DeadBits = (
);
$NONE = "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0";
-$DEFAULT =
"\x10\x01\x00\x00\x00\x50\x04\x00\x00\x00\x00\x00\x00\x55\x15\x01", #
[2,56,52,53,57,54,58,55,60,4,22,23,25]
-$LAST_BIT = 126 ;
+$DEFAULT =
"\x10\x01\x00\x00\x00\x50\x04\x00\x00\x00\x00\x00\x00\x55\x15\x00", #
[2,56,52,53,57,54,58,55,4,22,23,25]
+$LAST_BIT = 124 ;
$BYTES = 16 ;
$All = "" ; vec($All, $Offsets{'all'}, 2) = 3 ;
diff --git a/pod/perldiag.pod b/pod/perldiag.pod
index 9365c42..322e24e 100644
--- a/pod/perldiag.pod
+++ b/pod/perldiag.pod
@@ -4238,14 +4238,6 @@ are as follows.
Both numeric and string values are accepted, but note that string values are
case sensitive. The default for this setting is "RANDOM" or 1.
-=item PerlIO layer ':win32' is experimental
-
-(S experimental::win32_perlio) The C<:win32> PerlIO layer is
-experimental. If you want to take the risk of using this layer,
-simply disable this warning:
-
- no warnings "experimental::win32_perlio";
-
=item pid %x not a child
(W exec) A warning peculiar to VMS. Waitpid() was asked to wait for a
diff --git a/regen/warnings.pl b/regen/warnings.pl
index a9b3649..f3567e0 100644
--- a/regen/warnings.pl
+++ b/regen/warnings.pl
@@ -100,8 +100,6 @@ my $tree = {
[ 5.019, DEFAULT_ON ],
'experimental::signatures' =>
[ 5.019, DEFAULT_ON ],
- 'experimental::win32_perlio' =>
- [ 5.021, DEFAULT_ON ],
}],
'missing' => [ 5.021, DEFAULT_OFF],
@@ -475,7 +473,11 @@ read_only_bottom_close_and_rename($pm);
__END__
package warnings;
+<<<<<<< HEAD
our $VERSION = '1.26';
+=======
+our $VERSION = '1.23';
+>>>>>>> parent of 7ac9292... add a warning for using the :win32 PerlIO layer
# Verify that we're called correctly so that warnings will work.
# see also strict.pm.
diff --git a/t/lib/warnings/perlio b/t/lib/warnings/perlio
index 2be984f..0ccc5a8 100644
--- a/t/lib/warnings/perlio
+++ b/t/lib/warnings/perlio
@@ -56,17 +56,3 @@ close F;
END { 1 while unlink "bb" } # KEEP THIS WITH THE LAST TEST.
EXPECT
Unknown PerlIO layer "xyz" at - line 5.
-########
-# NAME :win32 experimental warning
-# SKIP ?$^O ne "MSWin32" && ":win32 only available on Win32"
-open my $fh, ">:win32", "temp.txt" or die $^E;
-END { unlink "temp.txt"; }
-EXPECT
-PerlIO layer ':win32' is experimental at - line 1.
-########
-# NAME :win32 experimental warning disabled
-# SKIP ?$^O ne "MSWin32" && ":win32 only available on Win32"
-no warnings "experimental::win32_perlio";
-open my $fh, ">:win32", "temp.txt" or die $^E;
-END { unlink "temp.txt"; }
-EXPECT
diff --git a/t/op/caller.t b/t/op/caller.t
index c43f576..54a6bac 100644
--- a/t/op/caller.t
+++ b/t/op/caller.t
@@ -111,8 +111,8 @@ sub testwarn {
# The repetition number must be set to the value of $BYTES in
# lib/warnings.pm
- BEGIN { check_bits( ${^WARNING_BITS}, "\0" x 16, 'all bits off via "no
warnings"' ) }
- testwarn("\0" x 16, 'no bits');
+ BEGIN { check_bits( ${^WARNING_BITS}, "\0" x 15, 'all bits off via "no
warnings"' ) }
+ testwarn("\0" x 15, 'no bits');
use warnings;
BEGIN { check_bits( ${^WARNING_BITS}, $default,
diff --git a/warnings.h b/warnings.h
index 21c6d83..670a3d6 100644
--- a/warnings.h
+++ b/warnings.h
@@ -104,9 +104,8 @@
/* Warnings Categories added in Perl 5.021 */
-#define WARN_EXPERIMENTAL__WIN32_PERLIO 60
-#define WARN_MISSING 61
-#define WARN_REDUNDANT 62
+#define WARN_MISSING 60
+#define WARN_REDUNDANT 61
#define WARNsize 16
#define WARN_ALLstring
"\125\125\125\125\125\125\125\125\125\125\125\125\125\125\125\125"
diff --git a/win32/win32io.c b/win32/win32io.c
index 2f2387a..5e357b5 100644
--- a/win32/win32io.c
+++ b/win32/win32io.c
@@ -61,11 +61,6 @@ PerlIOWin32_pushed(pTHX_ PerlIO *f, const char *mode, SV
*arg, PerlIO_funcs *tab
s->fd = PerlIO_fileno(PerlIONext(f));
}
PerlIOBase(f)->flags |= PERLIO_F_OPEN;
-
- Perl_ck_warner_d(aTHX_
- packWARN(WARN_EXPERIMENTAL__WIN32_PERLIO),
- "PerlIO layer ':win32' is experimental");
-
return code;
}
--
Perl5 Master Repository
