diff options
| author | Gisle Aas <gisle@aas.no> | 2005-10-20 22:24:30 -0700 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-10-21 13:24:30 +0000 |
| commit | 4ef2275c8517a5b084d75f6179d5b49f77f76d2c (patch) | |
| tree | b75ca8419e506e06ff04a1807ac13a55189b0e11 /t/lib | |
| parent | dbb128be9d98f2152d3ce957d4c3c518a9f86260 (diff) | |
| download | perl-4ef2275c8517a5b084d75f6179d5b49f77f76d2c.tar.gz | |
wrong maxlen in sselect [PATCH]
Message-ID: <lrzmp312ip.fsf@caliper.activestate.com>
Plus a regression test for the new warning.
p4raw-id: //depot/perl@25813
Diffstat (limited to 't/lib')
| -rw-r--r-- | t/lib/warnings/pp_sys | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/t/lib/warnings/pp_sys b/t/lib/warnings/pp_sys index 881e81e624..d84ff75fea 100644 --- a/t/lib/warnings/pp_sys +++ b/t/lib/warnings/pp_sys @@ -103,6 +103,8 @@ getc() on closed filehandle [pp_getc] + Non-string passed as bitmask [pp_sselect] + __END__ # pp_sys.c [pp_untie] use warnings 'untie' ; @@ -446,3 +448,12 @@ EXPECT getc() on unopened filehandle FOO at - line 3. getc() on closed filehandle STDIN at - line 5. getc() on closed filehandle FH2 at - line 12. +######## +# pp_sys.c [pp_sselect] +use warnings 'misc'; +$x = 1; +select $x, undef, undef, undef; +no warnings 'misc'; +select $x, undef, undef, undef; +EXPECT +Non-string passed as bitmask at - line 4. |