1N/A sv.c

1N/A

1N/A warn(warn_uninit);

1N/A

1N/A warn(warn_uninit);

1N/A

1N/A warn(warn_uninit);

1N/A

1N/A warn(warn_uninit);

1N/A

1N/A not_a_number(sv);

1N/A

1N/A not_a_number(sv);

1N/A

1N/A warn(warn_uninit);

1N/A

1N/A not_a_number(sv);

1N/A

1N/A warn(warn_uninit);

1N/A

1N/A not_a_number(sv);

1N/A

1N/A not_a_number(sv);

1N/A

1N/A warn(warn_uninit);

1N/A

1N/A warn(warn_uninit);

1N/A

1N/A Subroutine %s redefined

1N/A

1N/A Invalid conversion in %s:

1N/A

1N/A Undefined value assigned to typeglob

1N/A

1N/A Possible Y2K bug: %d format string following '19'

1N/A

1N/A Reference is already weak [Perl_sv_rvweaken] <<TODO

1N/A

1N/A Mandatory Warnings

1N/A ------------------

1N/A Malformed UTF-8 character [sv_pos_b2u] (not tested: difficult to produce

1N/A with perl now)

1N/A

1N/A Mandatory Warnings TODO

1N/A ------------------

1N/A Attempt to free non-arena SV: 0x%lx [del_sv]

1N/A Reference miscount in sv_replace() [sv_replace]

1N/A Attempt to free unreferenced scalar [sv_free]

1N/A Attempt to free temp prematurely: SV 0x%lx [sv_free]

1N/A semi-panic: attempt to dup freed string [newSVsv]

1N/A

1N/A

1N/A__END__

1N/A# sv.c

1N/Ause integer ;

1N/Ause warnings 'uninitialized' ;

1N/A$x = 1 + $a[0] ; # a

1N/Ano warnings 'uninitialized' ;

1N/A$x = 1 + $b[0] ; # a

1N/AEXPECT

1N/AUse of uninitialized value in integer addition (+) at - line 4.

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

1N/A# sv.c (sv_2iv)

1N/Apackage fred ;

1N/Asub TIESCALAR { my $x ; bless \$x}

1N/Asub FETCH { return undef }

1N/Asub STORE { return 1 }

1N/Apackage main ;

1N/Atie $A, 'fred' ;

1N/Ause integer ;

1N/Ause warnings 'uninitialized' ;

1N/A$A *= 2 ;

1N/Ano warnings 'uninitialized' ;

1N/A$A *= 2 ;

1N/AEXPECT

1N/AUse of uninitialized value in integer multiplication (*) at - line 10.

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

1N/A# sv.c

1N/Ause integer ;

1N/Ause warnings 'uninitialized' ;

1N/Amy $x *= 2 ; #b

1N/Ano warnings 'uninitialized' ;

1N/Amy $y *= 2 ; #b

1N/AEXPECT

1N/AUse of uninitialized value in integer multiplication (*) at - line 4.

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

1N/A# sv.c (sv_2uv)

1N/Apackage fred ;

1N/Asub TIESCALAR { my $x ; bless \$x}

1N/Asub FETCH { return undef }

1N/Asub STORE { return 1 }

1N/Apackage main ;

1N/Atie $A, 'fred' ;

1N/Ause warnings 'uninitialized' ;

1N/A$B = 0 ;

1N/A$B |= $A ;

1N/Ano warnings 'uninitialized' ;

1N/A$B = 0 ;

1N/A$B |= $A ;

1N/AEXPECT

1N/AUse of uninitialized value in bitwise or (|) at - line 10.

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

1N/A# sv.c

1N/Ause warnings 'uninitialized' ;

1N/Amy $Y = 1 ;

1N/Amy $x = 1 | $a[$Y] ;

1N/Ano warnings 'uninitialized' ;

1N/Amy $Y = 1 ;

1N/A$x = 1 | $b[$Y] ;

1N/AEXPECT

1N/AUse of uninitialized value in bitwise or (|) at - line 4.

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

1N/A# sv.c

1N/Ause warnings 'uninitialized' ;

1N/Amy $Y = 1 ;

1N/Amy $x = 1 & $a[$Y] ;

1N/Ano warnings 'uninitialized' ;

1N/Amy $Y = 1 ;

1N/A$x = 1 & $b[$Y] ;

1N/AEXPECT

1N/AUse of uninitialized value in bitwise and (&) at - line 4.

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

1N/A# sv.c

1N/Ause warnings 'uninitialized' ;

1N/Amy $Y = 1 ;

1N/Amy $x = ~$a[$Y] ;

1N/Ano warnings 'uninitialized' ;

1N/Amy $Y = 1 ;

1N/A$x = ~$b[$Y] ;

1N/AEXPECT

1N/AUse of uninitialized value in 1's complement (~) at - line 4.

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

1N/A# sv.c

1N/Ause warnings 'uninitialized' ;

1N/Amy $x *= 1 ; # d

1N/Ano warnings 'uninitialized' ;

1N/Amy $y *= 1 ; # d

1N/AEXPECT

1N/AUse of uninitialized value in multiplication (*) at - line 3.

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

1N/A# sv.c

1N/Ause warnings 'uninitialized' ;

1N/A$x = 1 + $a[0] ; # e

1N/Ano warnings 'uninitialized' ;

1N/A$x = 1 + $b[0] ; # e

1N/AEXPECT

1N/AUse of uninitialized value in addition (+) at - line 3.

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

1N/A# sv.c (sv_2nv)

1N/Apackage fred ;

1N/Asub TIESCALAR { my $x ; bless \$x}

1N/Asub FETCH { return undef }

1N/Asub STORE { return 1 }

1N/Apackage main ;

1N/Atie $A, 'fred' ;

1N/Ause warnings 'uninitialized' ;

1N/A$A *= 2 ;

1N/Ano warnings 'uninitialized' ;

1N/A$A *= 2 ;

1N/AEXPECT

1N/AUse of uninitialized value in multiplication (*) at - line 9.

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

1N/A# sv.c

1N/Ause warnings 'uninitialized' ;

1N/A$x = $y + 1 ; # f

1N/Ano warnings 'uninitialized' ;

1N/A$x = $z + 1 ; # f

1N/AEXPECT

1N/AUse of uninitialized value in addition (+) at - line 3.

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

1N/A# sv.c

1N/Ause warnings 'uninitialized' ;

1N/A$x = chop undef ; # g

1N/Ano warnings 'uninitialized' ;

1N/A$x = chop undef ; # g

1N/AEXPECT

1N/AModification of a read-only value attempted at - line 3.

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

1N/A# sv.c

1N/Ause warnings 'uninitialized' ;

1N/A$x = chop $y ; # h

1N/Ano warnings 'uninitialized' ;

1N/A$x = chop $z ; # h

1N/AEXPECT

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

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

1N/A# sv.c (sv_2pv)

1N/Apackage fred ;

1N/Asub TIESCALAR { my $x ; bless \$x}

1N/Asub FETCH { return undef }

1N/Asub STORE { return 1 }

1N/Apackage main ;

1N/Atie $A, 'fred' ;

1N/Ause warnings 'uninitialized' ;

1N/A$B = "" ;

1N/A$B .= $A ;

1N/Ano warnings 'uninitialized' ;

1N/A$C = "" ;

1N/A$C .= $A ;

1N/AEXPECT

1N/AUse of uninitialized value in concatenation (.) or string at - line 10.

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

1N/A# perlbug 20011116.125

1N/Ause warnings 'uninitialized';

1N/A$a = undef;

1N/A$foo = join '', $a, "\n";

1N/A$foo = "$a\n";

1N/A$foo = "a:$a\n";

1N/AEXPECT

1N/AUse of uninitialized value in join or string at - line 4.

1N/AUse of uninitialized value in concatenation (.) or string at - line 5.

1N/AUse of uninitialized value in concatenation (.) or string at - line 6.

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

1N/A# sv.c

1N/Ause warnings 'numeric' ;

1N/Asub TIESCALAR{bless[]} ;

1N/Asub FETCH {"def"} ;

1N/Atie $a,"main" ;

1N/Amy $b = 1 + $a;

1N/Ano warnings 'numeric' ;

1N/Amy $c = 1 + $a;

1N/AEXPECT

1N/AArgument "def" isn't numeric in addition (+) at - line 6.

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

1N/A# sv.c

1N/Ause warnings 'numeric' ;

1N/Amy $x = 1 + "def" ;

1N/Ano warnings 'numeric' ;

1N/Amy $z = 1 + "def" ;

1N/AEXPECT

1N/AArgument "def" isn't numeric in addition (+) at - line 3.

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

1N/A# sv.c

1N/Ause warnings 'numeric' ;

1N/Amy $a = "def" ;

1N/Amy $x = 1 + $a ;

1N/Ano warnings 'numeric' ;

1N/Amy $y = 1 + $a ;

1N/AEXPECT

1N/AArgument "def" isn't numeric in addition (+) at - line 4.

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

1N/A# sv.c

1N/Ause warnings 'numeric' ; use integer ;

1N/Amy $a = "def" ;

1N/Amy $x = 1 + $a ;

1N/Ano warnings 'numeric' ;

1N/Amy $z = 1 + $a ;

1N/AEXPECT

1N/AArgument "def" isn't numeric in integer addition (+) at - line 4.

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

1N/A# sv.c

1N/Ause warnings 'numeric' ;

1N/Amy $x = 1 & "def" ;

1N/Ano warnings 'numeric' ;

1N/Amy $z = 1 & "def" ;

1N/AEXPECT

1N/AArgument "def" isn't numeric in bitwise and (&) at - line 3.

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

1N/A# sv.c

1N/Ause warnings 'numeric' ;

1N/Amy $x = pack i => "def" ;

1N/Ano warnings 'numeric' ;

1N/Amy $z = pack i => "def" ;

1N/AEXPECT

1N/AArgument "def" isn't numeric in pack at - line 3.

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

1N/A# sv.c

1N/Ause warnings 'numeric' ;

1N/Amy $a = "d\0f" ;

1N/Amy $x = 1 + $a ;

1N/Ano warnings 'numeric' ;

1N/Amy $z = 1 + $a ;

1N/AEXPECT

1N/AArgument "d\0f" isn't numeric in addition (+) at - line 4.

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

1N/A# sv.c

1N/Ause warnings 'redefine' ;

1N/Asub fred {}

1N/Asub joe {}

1N/A*fred = \&joe ;

1N/Ano warnings 'redefine' ;

1N/Asub jim {}

1N/A*jim = \&joe ;

1N/AEXPECT

1N/ASubroutine main::fred redefined at - line 5.

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

1N/A# sv.c

1N/Ause warnings 'printf' ;

1N/Aopen F, ">".($^O eq 'VMS'? 'NL:' : '/dev/null') ;

1N/Aprintf F "%z\n" ;

1N/Amy $a = sprintf "%z" ;

1N/Aprintf F "%" ;

1N/A$a = sprintf "%" ;

1N/Aprintf F "%\x02" ;

1N/A$a = sprintf "%\x02" ;

1N/Ano warnings 'printf' ;

1N/Aprintf F "%z\n" ;

1N/A$a = sprintf "%z" ;

1N/Aprintf F "%" ;

1N/A$a = sprintf "%" ;

1N/Aprintf F "%\x02" ;

1N/A$a = sprintf "%\x02" ;

1N/AEXPECT

1N/AInvalid conversion in printf: "%z" at - line 4.

1N/AInvalid conversion in sprintf: "%z" at - line 5.

1N/AInvalid conversion in printf: end of string at - line 6.

1N/AInvalid conversion in sprintf: end of string at - line 7.

1N/AInvalid conversion in printf: "%\002" at - line 8.

1N/AInvalid conversion in sprintf: "%\002" at - line 9.

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

1N/A# sv.c

1N/Ause warnings 'misc' ;

1N/A*a = undef ;

1N/Ano warnings 'misc' ;

1N/A*b = undef ;

1N/AEXPECT

1N/AUndefined value assigned to typeglob at - line 3.

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

1N/A# sv.c

1N/Ause warnings 'y2k';

1N/Ause Config;

1N/ABEGIN {

1N/A unless ($Config{ccflags} =~ /Y2KWARN/) {

1N/A print "SKIPPED\n# perl not built with -DPERL_Y2KWARN";

1N/A exit 0;

1N/A }

1N/A $|=1;

1N/A}

1N/Amy $x;

1N/Amy $yy = 78;

1N/A$x = printf "19%02d\n", $yy;

1N/A$x = sprintf "#19%02d\n", $yy;

1N/A$x = printf " 19%02d\n", 78;

1N/A$x = sprintf "19%02d\n", 78;

1N/A$x = printf "319%02d\n", $yy;

1N/A$x = sprintf "319%02d\n", $yy;

1N/Ano warnings 'y2k';

1N/A$x = printf "19%02d\n", $yy;

1N/A$x = sprintf "19%02d\n", $yy;

1N/A$x = printf "19%02d\n", 78;

1N/A$x = sprintf "19%02d\n", 78;

1N/AEXPECT

1N/APossible Y2K bug: %d format string following '19' at - line 16.

1N/APossible Y2K bug: %d format string following '19' at - line 13.

1N/A1978

1N/APossible Y2K bug: %d format string following '19' at - line 14.

1N/APossible Y2K bug: %d format string following '19' at - line 15.

1N/A 1978

1N/A31978

1N/A1978

1N/A1978

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

1N/A# sv.c

1N/Ause warnings 'numeric' ;

1N/A$a = "\x{100}\x{200}" * 42;

1N/Ano warnings 'numeric' ;

1N/A$a = "\x{100}\x{200}" * 42;

1N/AEXPECT

1N/AArgument "\x{100}\x{200}" isn't numeric in multiplication (*) at - line 3.

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

1N/A# sv.c

1N/Ause warnings 'numeric' ;

1N/A$a = "\x{100}\x{200}"; $a = -$a;

1N/Ano warnings 'numeric' ;

1N/A$a = "\x{100}\x{200}"; $a = -$a;

1N/AEXPECT

1N/AArgument "\x{100}\x{200}" isn't numeric in negation (-) at - line 3.

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

1N/A# sv.c

1N/Aopen F, ">".($^O eq 'VMS'? 'NL:' : '/dev/null') ;

1N/Ause warnings 'printf';

1N/A$a = "a\nb";

1N/A$s = sprintf "%4s", $a;

1N/Aprintf F "%4s", $a;

1N/A$s = sprintf "%-4s", $a;

1N/Aprintf F "%-4s", $a;

1N/A$s = sprintf "%*s", -4, $a;

1N/Ano warnings 'printf';

1N/A$s = sprintf "%4s", $a;

1N/Aprintf F "%4s", $a;

1N/A$s = sprintf "%-4s", $a;

1N/Aprintf F "%-4s", $a;

1N/AEXPECT

1N/ANewline in left-justified string for sprintf at - line 7.

1N/ANewline in left-justified string for printf at - line 8.

1N/ANewline in left-justified string for sprintf at - line 9.