git.maemo.org Git - pkg-perl/blob - deb-src/libperl-critic-perl/libperl-critic-perl-1.088/t/InputOutput/ProhibitOneArgSelect.run

   1 ## name 1 arg; variable w/parens
   2 ## failures 1
   3 ## cut
   4 select( $fh );
   5
   6 #-----------------------------------------------------------------------------
   7
   8 ## name 1 arg; variable, as built-in
   9 ## failures 1
  10 ## cut
  11 select $fh;
  12
  13 #-----------------------------------------------------------------------------
  14
  15 ## name 1 arg; fh, w/parens
  16 ## failures 1
  17 ## cut
  18 select( STDERR );
  19
  20 #-----------------------------------------------------------------------------
  21
  22 ## name 1 arg; fh, as built-in
  23 ## failures 1
  24 ## cut
  25 select STDERR;
  26
  27 #-----------------------------------------------------------------------------
  28
  29 ## name 4 args
  30 ## failures 0
  31 ## cut
  32 select( undef, undef, undef, 0.25 );
  33
  34 #-----------------------------------------------------------------------------
  35
  36 ## name RT Bug #15653
  37 ## failures 0
  38 ## cut
  39 sub select { }