t/lib/warnings/pp

   1   pp.c  TODO
   2
   3   substr outside of string
   4     $a = "ab" ; $b = substr($a, 4,5) ;
   5
   6   Attempt to use reference as lvalue in substr
   7     $a = "ab" ; $b = \$a ;  substr($b, 1,1) = $b
   8
   9   uninitialized in pp_rv2gv()
  10         my *b = *{ undef()}
  11
  12   uninitialized in pp_rv2sv()
  13         my $a = undef ; my $b = $$a
  14
  15   Odd number of elements in hash list
  16         my $a = { 1,2,3 } ;
  17
  18   Explicit blessing to '' (assuming package main)
  19         bless \[], "";
  20
  21   Constant subroutine %s undefined                      <<<TODO
  22   Constant subroutine (anonymous) undefined             <<<TODO
  23
  24 __END__
  25 # pp.c
  26 use warnings 'substr' ;
  27 $a = "ab" ;
  28 $b = substr($a, 4,5) ;
  29 no warnings 'substr' ;
  30 $a = "ab" ;
  31 $b = substr($a, 4,5)  ;
  32 EXPECT
  33 substr outside of string at - line 4.
  34 ########
  35 # pp.c
  36 use warnings 'substr' ;
  37 $a = "ab" ;
  38 $b = \$a ;
  39 substr($b, 1,1) = "ab" ;
  40 no warnings 'substr' ;
  41 substr($b, 1,1) = "ab" ;
  42 EXPECT
  43 Attempt to use reference as lvalue in substr at - line 5.
  44 ########
  45 # pp.c
  46 use warnings 'uninitialized' ;
  47 # TODO
  48 EXPECT
  49
  50 ########
  51 # pp.c
  52 use warnings 'misc' ;
  53 my $a = { 1,2,3};
  54 no warnings 'misc' ;
  55 my $b = { 1,2,3};
  56 EXPECT
  57 Odd number of elements in hash assignment at - line 3.
  58 ########
  59 # pp.c
  60 use warnings 'misc' ;
  61 bless \[], "" ;
  62 no warnings 'misc' ;
  63 bless \[], "" ;
  64 EXPECT
  65 Explicit blessing to '' (assuming package main) at - line 3.
  66 ########
  67 # pp.c
  68 use utf8 ;
  69 $_ = "\x80  \xff" ;
  70 reverse ;
  71 EXPECT