Don't pass constants to select

p4raw-id: //depot/perl@24794

diff --git a/t/op/lex_assign.t b/t/op/lex_assign.t
index fb9fe4e..59d422e 100755 (executable)
--- a/t/op/lex_assign.t
+++ b/t/op/lex_assign.t
@@ -265,7 +265,7 @@ open BLAH, "<non-existent"  # open
 fileno STDERR                  # fileno
 umask 0                                # umask
 select STDOUT                  # sselect
-select "","","",0              # select
+select undef,undef,undef,0     # select
 getc OP                                # getc
 '???'                          # read
 '???'                          # sysread