1N/A pp.c TODO

1N/A

1N/A substr outside of string

1N/A $a = "ab" ; $b = substr($a, 4,5) ;

1N/A

1N/A Attempt to use reference as lvalue in substr

1N/A $a = "ab" ; $b = \$a ; substr($b, 1,1) = $b

1N/A

1N/A Use of uninitialized value in ref-to-glob cast [pp_rv2gv()]

1N/A *b = *{ undef()}

1N/A

1N/A Use of uninitialized value in scalar dereference [pp_rv2sv()]

1N/A my $a = undef ; my $b = $$a

1N/A

1N/A Odd number of elements in hash list

1N/A my $a = { 1,2,3 } ;

1N/A

1N/A Explicit blessing to '' (assuming package main)

1N/A bless \[], "";

1N/A

1N/A Constant subroutine %s undefined

1N/A sub foo () { 1 }; undef &foo;

1N/A

1N/A Constant subroutine (anonymous) undefined

1N/A $foo = sub () { 3 }; undef &$foo;

1N/A

1N/A__END__

1N/A# pp.c

1N/Ause warnings 'substr' ;

1N/A$a = "ab" ;

1N/A$b = substr($a, 4,5) ;

1N/Ano warnings 'substr' ;

1N/A$a = "ab" ;

1N/A$b = substr($a, 4,5) ;

1N/AEXPECT

1N/Asubstr outside of string at - line 4.

1N/A########

1N/A# pp.c

1N/Ause warnings 'substr' ;

1N/A$a = "ab" ;

1N/A$b = \$a ;

1N/Asubstr($b, 1,1) = "ab" ;

1N/Ano warnings 'substr' ;

1N/Asubstr($b, 1,1) = "ab" ;

1N/AEXPECT

1N/AAttempt to use reference as lvalue in substr at - line 5.

1N/A########

1N/A# pp.c

1N/Ause warnings 'uninitialized' ;

1N/A*x = *{ undef() };

1N/Ano warnings 'uninitialized' ;

1N/A*y = *{ undef() };

1N/AEXPECT

1N/AUse of uninitialized value in ref-to-glob cast at - line 3.

1N/A########

1N/A# pp.c

1N/Ause warnings 'uninitialized';

1N/A$x = undef; $y = $$x;

1N/Ano warnings 'uninitialized' ;

1N/A$u = undef; $v = $$u;

1N/AEXPECT

1N/AUse of uninitialized value in scalar dereference at - line 3.

1N/A########

1N/A# pp.c

1N/Ause warnings 'misc' ;

1N/Amy $a = { 1,2,3};

1N/Ano warnings 'misc' ;

1N/Amy $b = { 1,2,3};

1N/AEXPECT

1N/AOdd number of elements in anonymous hash at - line 3.

1N/A########

1N/A# pp.c

1N/Ause warnings 'misc' ;

1N/Abless \[], "" ;

1N/Ano warnings 'misc' ;

1N/Abless \[], "" ;

1N/AEXPECT

1N/AExplicit blessing to '' (assuming package main) at - line 3.

1N/A########

1N/A# pp.c

1N/Ause warnings 'misc';

1N/Asub foo () { 1 }

1N/Aundef &foo;

1N/Ano warnings 'misc';

1N/Asub bar () { 2 }

1N/Aundef &bar;

1N/AEXPECT

1N/AConstant subroutine foo undefined at - line 4.

1N/A########

1N/A# pp.c

1N/Ause warnings 'misc';

1N/A$foo = sub () { 3 };

1N/Aundef &$foo;

1N/Ano warnings 'misc';

1N/A$bar = sub () { 4 };

1N/Aundef &$bar;

1N/AEXPECT

1N/AConstant subroutine (anonymous) undefined at - line 4.

1N/A########

1N/A# pp.c

1N/Ause utf8 ;

1N/A$_ = "\x80 \xff" ;

1N/Areverse ;

1N/AEXPECT