t/lib/warnings/sv

   1   sv.c
   2
   3   warn(warn_uninit);
   4
   5   warn(warn_uninit);
   6
   7   warn(warn_uninit);
   8
   9   warn(warn_uninit);
  10
  11   not_a_number(sv);
  12
  13   not_a_number(sv);
  14
  15   warn(warn_uninit);
  16
  17   not_a_number(sv);
  18
  19   warn(warn_uninit);
  20
  21   not_a_number(sv);
  22
  23   not_a_number(sv);
  24
  25   warn(warn_uninit);
  26
  27   warn(warn_uninit);
  28
  29   Subroutine %s redefined
  30
  31   Invalid conversion in %s:
  32
  33   Undefined value assigned to typeglob
  34
  35   Possible Y2K bug: %d format string following '19'
  36
  37   Reference is already weak                     [Perl_sv_rvweaken] <<TODO
  38
  39   Mandatory Warnings
  40   ------------------
  41   Malformed UTF-8 character [sv_pos_b2u] (not tested: difficult to produce
  42                                           with perl now)
  43
  44   Mandatory Warnings TODO
  45   ------------------
  46     Attempt to free non-arena SV: 0x%lx         [del_sv]
  47     Reference miscount in sv_replace()          [sv_replace]
  48     Attempt to free unreferenced scalar         [sv_free]
  49     Attempt to free temp prematurely: SV 0x%lx  [sv_free]
  50     semi-panic: attempt to dup freed string     [newSVsv]
  51
  52
  53 __END__
  54 # sv.c
  55 use integer ;
  56 use warnings 'uninitialized' ;
  57 $x = 1 + $a[0] ; # a
  58 no warnings 'uninitialized' ;
  59 $x = 1 + $b[0] ; # a
  60 EXPECT
  61 Use of uninitialized value in integer addition (+) at - line 4.
  62 ########
  63 # sv.c (sv_2iv)
  64 package fred ;
  65 sub TIESCALAR { my $x ; bless \$x}
  66 sub FETCH { return undef }
  67 sub STORE { return 1 }
  68 package main ;
  69 tie $A, 'fred' ;
  70 use integer ;
  71 use warnings 'uninitialized' ;
  72 $A *= 2 ;
  73 no warnings 'uninitialized' ;
  74 $A *= 2 ;
  75 EXPECT
  76 Use of uninitialized value in integer multiplication (*) at - line 10.
  77 ########
  78 # sv.c
  79 use integer ;
  80 use warnings 'uninitialized' ;
  81 my $x *= 2 ; #b
  82 no warnings 'uninitialized' ;
  83 my $y *= 2 ; #b
  84 EXPECT
  85 Use of uninitialized value in integer multiplication (*) at - line 4.
  86 ########
  87 # sv.c (sv_2uv)
  88 package fred ;
  89 sub TIESCALAR { my $x ; bless \$x}
  90 sub FETCH { return undef }
  91 sub STORE { return 1 }
  92 package main ;
  93 tie $A, 'fred' ;
  94 use warnings 'uninitialized' ;
  95 $B = 0 ;
  96 $B |= $A ;
  97 no warnings 'uninitialized' ;
  98 $B = 0 ;
  99 $B |= $A ;
 100 EXPECT
 101 Use of uninitialized value in bitwise or (|) at - line 10.
 102 ########
 103 # sv.c
 104 use warnings 'uninitialized' ;
 105 my $Y = 1 ;
 106 my $x = 1 | $a[$Y] ;
 107 no warnings 'uninitialized' ;
 108 my $Y = 1 ;
 109 $x = 1 | $b[$Y] ;
 110 EXPECT
 111 Use of uninitialized value in bitwise or (|) at - line 4.
 112 ########
 113 # sv.c
 114 use warnings 'uninitialized' ;
 115 my $x *= 1 ; # d
 116 no warnings 'uninitialized' ;
 117 my $y *= 1 ; # d
 118 EXPECT
 119 Use of uninitialized value in multiplication (*) at - line 3.
 120 ########
 121 # sv.c
 122 use warnings 'uninitialized' ;
 123 $x = 1 + $a[0] ; # e
 124 no warnings 'uninitialized' ;
 125 $x = 1 + $b[0] ; # e
 126 EXPECT
 127 Use of uninitialized value in addition (+) at - line 3.
 128 ########
 129 # sv.c (sv_2nv)
 130 package fred ;
 131 sub TIESCALAR { my $x ; bless \$x}
 132 sub FETCH { return undef }
 133 sub STORE { return 1 }
 134 package main ;
 135 tie $A, 'fred' ;
 136 use warnings 'uninitialized' ;
 137 $A *= 2 ;
 138 no warnings 'uninitialized' ;
 139 $A *= 2 ;
 140 EXPECT
 141 Use of uninitialized value in multiplication (*) at - line 9.
 142 ########
 143 # sv.c
 144 use warnings 'uninitialized' ;
 145 $x = $y + 1 ; # f
 146 no warnings 'uninitialized' ;
 147 $x = $z + 1 ; # f
 148 EXPECT
 149 Use of uninitialized value in addition (+) at - line 3.
 150 ########
 151 # sv.c
 152 use warnings 'uninitialized' ;
 153 $x = chop undef ; # g
 154 no warnings 'uninitialized' ;
 155 $x = chop undef ; # g
 156 EXPECT
 157 Modification of a read-only value attempted at - line 3.
 158 ########
 159 # sv.c
 160 use warnings 'uninitialized' ;
 161 $x = chop $y ; # h
 162 no warnings 'uninitialized' ;
 163 $x = chop $z ; # h
 164 EXPECT
 165 Use of uninitialized value in scalar chop at - line 3.
 166 ########
 167 # sv.c (sv_2pv)
 168 package fred ;
 169 sub TIESCALAR { my $x ; bless \$x}
 170 sub FETCH { return undef }
 171 sub STORE { return 1 }
 172 package main ;
 173 tie $A, 'fred' ;
 174 use warnings 'uninitialized' ;
 175 $B = "" ;
 176 $B .= $A ;
 177 no warnings 'uninitialized' ;
 178 $C = "" ;
 179 $C .= $A ;
 180 EXPECT
 181 Use of uninitialized value in concatenation (.) or string at - line 10.
 182 ########
 183 # sv.c
 184 use warnings 'numeric' ;
 185 sub TIESCALAR{bless[]} ;
 186 sub FETCH {"def"} ;
 187 tie $a,"main" ;
 188 my $b = 1 + $a;
 189 no warnings 'numeric' ;
 190 my $c = 1 + $a;
 191 EXPECT
 192 Argument "def" isn't numeric in addition (+) at - line 6.
 193 ########
 194 # sv.c
 195 use warnings 'numeric' ;
 196 my $x = 1 + "def" ;
 197 no warnings 'numeric' ;
 198 my $z = 1 + "def" ;
 199 EXPECT
 200 Argument "def" isn't numeric in addition (+) at - line 3.
 201 ########
 202 # sv.c
 203 use warnings 'numeric' ;
 204 my $a = "def" ;
 205 my $x = 1 + $a ;
 206 no warnings 'numeric' ;
 207 my $y = 1 + $a ;
 208 EXPECT
 209 Argument "def" isn't numeric in addition (+) at - line 4.
 210 ########
 211 # sv.c
 212 use warnings 'numeric' ; use integer ;
 213 my $a = "def" ;
 214 my $x = 1 + $a ;
 215 no warnings 'numeric' ;
 216 my $z = 1 + $a ;
 217 EXPECT
 218 Argument "def" isn't numeric in integer addition (+) at - line 4.
 219 ########
 220 # sv.c
 221 use warnings 'numeric' ;
 222 my $x = 1 & "def" ;
 223 no warnings 'numeric' ;
 224 my $z = 1 & "def" ;
 225 EXPECT
 226 Argument "def" isn't numeric in bitwise and (&) at - line 3.
 227 ########
 228 # sv.c
 229 use warnings 'numeric' ;
 230 my $x = pack i => "def" ;
 231 no warnings 'numeric' ;
 232 my $z = pack i => "def" ;
 233 EXPECT
 234 Argument "def" isn't numeric in pack at - line 3.
 235 ########
 236 # sv.c
 237 use warnings 'numeric' ;
 238 my $a = "d\0f" ;
 239 my $x = 1 + $a ;
 240 no warnings 'numeric' ;
 241 my $z = 1 + $a ;
 242 EXPECT
 243 Argument "d\0f" isn't numeric in addition (+) at - line 4.
 244 ########
 245 # sv.c
 246 use warnings 'redefine' ;
 247 sub fred {}
 248 sub joe {}
 249 *fred = \&joe ;
 250 no warnings 'redefine' ;
 251 sub jim {}
 252 *jim = \&joe ;
 253 EXPECT
 254 Subroutine fred redefined at - line 5.
 255 ########
 256 # sv.c
 257 use warnings 'printf' ;
 258 open F, ">".($^O eq 'VMS'? 'NL:' : '/dev/null') ;
 259 printf F "%z\n" ;
 260 my $a = sprintf "%z" ;
 261 printf F "%" ;
 262 $a = sprintf "%" ;
 263 printf F "%\x02" ;
 264 $a = sprintf "%\x02" ;
 265 no warnings 'printf' ;
 266 printf F "%z\n" ;
 267 $a = sprintf "%z" ;
 268 printf F "%" ;
 269 $a = sprintf "%" ;
 270 printf F "%\x02" ;
 271 $a = sprintf "%\x02" ;
 272 EXPECT
 273 Invalid conversion in sprintf: "%z" at - line 5.
 274 Invalid conversion in sprintf: end of string at - line 7.
 275 Invalid conversion in sprintf: "%\002" at - line 9.
 276 Invalid conversion in printf: "%z" at - line 4.
 277 Invalid conversion in printf: end of string at - line 6.
 278 Invalid conversion in printf: "%\002" at - line 8.
 279 ########
 280 # sv.c
 281 use warnings 'misc' ;
 282 *a = undef ;
 283 no warnings 'misc' ;
 284 *b = undef ;
 285 EXPECT
 286 Undefined value assigned to typeglob at - line 3.
 287 ########
 288 # sv.c
 289 use warnings 'y2k';
 290 use Config;
 291 BEGIN {
 292     unless ($Config{ccflags} =~ /Y2KWARN/) {
 293         print "SKIPPED\n# perl not built with -DPERL_Y2KWARN";
 294         exit 0;
 295     }
 296     $|=1;
 297 }
 298 my $x;
 299 my $yy = 78;
 300 $x     = printf  "19%02d\n", $yy;
 301 $x     = sprintf "#19%02d\n", $yy;
 302 $x     = printf  " 19%02d\n", 78;
 303 $x     = sprintf "19%02d\n", 78;
 304 $x     = printf  "319%02d\n", $yy;
 305 $x     = sprintf "319%02d\n", $yy;
 306 no warnings 'y2k';
 307 $x     = printf  "19%02d\n", $yy;
 308 $x     = sprintf "19%02d\n", $yy;
 309 $x     = printf  "19%02d\n", 78;
 310 $x     = sprintf "19%02d\n", 78;
 311 EXPECT
 312 Possible Y2K bug: %d format string following '19' at - line 16.
 313 Possible Y2K bug: %d format string following '19' at - line 13.
 314 1978
 315 Possible Y2K bug: %d format string following '19' at - line 14.
 316 Possible Y2K bug: %d format string following '19' at - line 15.
 317  1978
 318 31978
 319 1978
 320 1978