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 $a[0] 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 $A 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 $x 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 $A 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 within @a in bitwise or (|) at - line 4.
 112 ########
 113 # sv.c
 114 use warnings 'uninitialized' ;
 115 my $Y = 1 ;
 116 my $x = 1 & $a[$Y] ;
 117 no warnings 'uninitialized' ;
 118 my $Y = 1 ;
 119 $x = 1 & $b[$Y] ;
 120 EXPECT
 121 Use of uninitialized value within @a in bitwise and (&) at - line 4.
 122 ########
 123 # sv.c
 124 use warnings 'uninitialized' ;
 125 my $Y = 1 ;
 126 my $x = ~$a[$Y] ;
 127 no warnings 'uninitialized' ;
 128 my $Y = 1 ;
 129 $x = ~$b[$Y] ;
 130 EXPECT
 131 Use of uninitialized value within @a in 1's complement (~) at - line 4.
 132 ########
 133 # sv.c
 134 use warnings 'uninitialized' ;
 135 my $x *= 1 ; # d
 136 no warnings 'uninitialized' ;
 137 my $y *= 1 ; # d
 138 EXPECT
 139 Use of uninitialized value $x in multiplication (*) at - line 3.
 140 ########
 141 # sv.c
 142 use warnings 'uninitialized' ;
 143 $x = 1 + $a[0] ; # e
 144 no warnings 'uninitialized' ;
 145 $x = 1 + $b[0] ; # e
 146 EXPECT
 147 Use of uninitialized value $a[0] in addition (+) at - line 3.
 148 ########
 149 # sv.c (sv_2nv)
 150 package fred ;
 151 sub TIESCALAR { my $x ; bless \$x}
 152 sub FETCH { return undef }
 153 sub STORE { return 1 }
 154 package main ;
 155 tie $A, 'fred' ;
 156 use warnings 'uninitialized' ;
 157 $A *= 2 ;
 158 no warnings 'uninitialized' ;
 159 $A *= 2 ;
 160 EXPECT
 161 Use of uninitialized value $A in multiplication (*) at - line 9.
 162 ########
 163 # sv.c
 164 use warnings 'uninitialized' ;
 165 $x = $y + 1 ; # f
 166 no warnings 'uninitialized' ;
 167 $x = $z + 1 ; # f
 168 EXPECT
 169 Use of uninitialized value $y in addition (+) at - line 3.
 170 ########
 171 # sv.c
 172 use warnings 'uninitialized' ;
 173 $x = chop undef ; # g
 174 no warnings 'uninitialized' ;
 175 $x = chop undef ; # g
 176 EXPECT
 177 Modification of a read-only value attempted at - line 3.
 178 ########
 179 # sv.c
 180 use warnings 'uninitialized' ;
 181 $x = chop $y ; # h
 182 no warnings 'uninitialized' ;
 183 $x = chop $z ; # h
 184 EXPECT
 185 Use of uninitialized value $y in scalar chop at - line 3.
 186 ########
 187 # sv.c (sv_2pv)
 188 package fred ;
 189 sub TIESCALAR { my $x ; bless \$x}
 190 sub FETCH { return undef }
 191 sub STORE { return 1 }
 192 package main ;
 193 tie $A, 'fred' ;
 194 use warnings 'uninitialized' ;
 195 $B = "" ;
 196 $B .= $A ;
 197 no warnings 'uninitialized' ;
 198 $C = "" ;
 199 $C .= $A ;
 200 EXPECT
 201 Use of uninitialized value $A in concatenation (.) or string at - line 10.
 202 ########
 203 # perlbug 20011116.125
 204 use warnings 'uninitialized';
 205 $a = undef;
 206 $foo = join '', $a, "\n";
 207 $foo = "$a\n";
 208 $foo = "a:$a\n";
 209 EXPECT
 210 Use of uninitialized value $a in join or string at - line 4.
 211 Use of uninitialized value $a in concatenation (.) or string at - line 5.
 212 Use of uninitialized value $a in concatenation (.) or string at - line 6.
 213 ########
 214 # sv.c
 215 use warnings 'numeric' ;
 216 sub TIESCALAR{bless[]} ;
 217 sub FETCH {"def"} ;
 218 tie $a,"main" ;
 219 my $b = 1 + $a;
 220 no warnings 'numeric' ;
 221 my $c = 1 + $a;
 222 EXPECT
 223 Argument "def" isn't numeric in addition (+) at - line 6.
 224 ########
 225 # sv.c
 226 use warnings 'numeric' ;
 227 my $x = 1 + "def" ;
 228 no warnings 'numeric' ;
 229 my $z = 1 + "def" ;
 230 EXPECT
 231 Argument "def" isn't numeric in addition (+) at - line 3.
 232 ########
 233 # sv.c
 234 use warnings 'numeric' ;
 235 my $a = "def" ;
 236 my $x = 1 + $a ;
 237 no warnings 'numeric' ;
 238 my $y = 1 + $a ;
 239 EXPECT
 240 Argument "def" isn't numeric in addition (+) at - line 4.
 241 ########
 242 # sv.c
 243 use warnings 'numeric' ; use integer ;
 244 my $a = "def" ;
 245 my $x = 1 + $a ;
 246 no warnings 'numeric' ;
 247 my $z = 1 + $a ;
 248 EXPECT
 249 Argument "def" isn't numeric in integer addition (+) at - line 4.
 250 ########
 251 # sv.c
 252 use warnings 'numeric' ;
 253 my $x = 1 & "def" ;
 254 no warnings 'numeric' ;
 255 my $z = 1 & "def" ;
 256 EXPECT
 257 Argument "def" isn't numeric in bitwise and (&) at - line 3.
 258 ########
 259 # sv.c
 260 use warnings 'numeric' ;
 261 my $x = pack i => "def" ;
 262 no warnings 'numeric' ;
 263 my $z = pack i => "def" ;
 264 EXPECT
 265 Argument "def" isn't numeric in pack at - line 3.
 266 ########
 267 # sv.c
 268 use warnings 'numeric' ;
 269 my $a = "d\0f" ;
 270 my $x = 1 + $a ;
 271 no warnings 'numeric' ;
 272 my $z = 1 + $a ;
 273 EXPECT
 274 Argument "d\0f" isn't numeric in addition (+) at - line 4.
 275 ########
 276 # sv.c
 277 use warnings 'redefine' ;
 278 sub fred {}
 279 sub joe {}
 280 *fred = \&joe ;
 281 no warnings 'redefine' ;
 282 sub jim {}
 283 *jim = \&joe ;
 284 EXPECT
 285 Subroutine main::fred redefined at - line 5.
 286 ########
 287 # sv.c
 288 use warnings 'printf' ;
 289 open F, ">".($^O eq 'VMS'? 'NL:' : '/dev/null') ;
 290 printf F "%z\n" ;
 291 my $a = sprintf "%z" ;
 292 printf F "%" ;
 293 $a = sprintf "%" ;
 294 printf F "%\x02" ;
 295 $a = sprintf "%\x02" ;
 296 no warnings 'printf' ;
 297 printf F "%z\n" ;
 298 $a = sprintf "%z" ;
 299 printf F "%" ;
 300 $a = sprintf "%" ;
 301 printf F "%\x02" ;
 302 $a = sprintf "%\x02" ;
 303 EXPECT
 304 Invalid conversion in sprintf: "%z" at - line 5.
 305 Invalid conversion in sprintf: end of string at - line 7.
 306 Invalid conversion in sprintf: "%\002" at - line 9.
 307 Invalid conversion in printf: "%z" at - line 4.
 308 Invalid conversion in printf: end of string at - line 6.
 309 Invalid conversion in printf: "%\002" at - line 8.
 310 ########
 311 # sv.c
 312 use warnings 'misc' ;
 313 *a = undef ;
 314 no warnings 'misc' ;
 315 *b = undef ;
 316 EXPECT
 317 Undefined value assigned to typeglob at - line 3.
 318 ########
 319 # sv.c
 320 use warnings 'y2k';
 321 use Config;
 322 BEGIN {
 323     unless ($Config{ccflags} =~ /Y2KWARN/) {
 324         print "SKIPPED\n# perl not built with -DPERL_Y2KWARN";
 325         exit 0;
 326     }
 327     $|=1;
 328 }
 329 my $x;
 330 my $yy = 78;
 331 $x     = printf  "19%02d\n", $yy;
 332 $x     = sprintf "#19%02d\n", $yy;
 333 $x     = printf  " 19%02d\n", 78;
 334 $x     = sprintf "19%02d\n", 78;
 335 $x     = printf  "319%02d\n", $yy;
 336 $x     = sprintf "319%02d\n", $yy;
 337 no warnings 'y2k';
 338 $x     = printf  "19%02d\n", $yy;
 339 $x     = sprintf "19%02d\n", $yy;
 340 $x     = printf  "19%02d\n", 78;
 341 $x     = sprintf "19%02d\n", 78;
 342 EXPECT
 343 Possible Y2K bug: %d format string following '19' at - line 16.
 344 Possible Y2K bug: %d format string following '19' at - line 13.
 345 1978
 346 Possible Y2K bug: %d format string following '19' at - line 14.
 347 Possible Y2K bug: %d format string following '19' at - line 15.
 348  1978
 349 31978
 350 1978
 351 1978
 352 ########
 353 # sv.c
 354 use warnings 'numeric' ;
 355 $a = "\x{100}\x{200}" * 42;
 356 no warnings 'numeric' ;
 357 $a = "\x{100}\x{200}" * 42;
 358 EXPECT
 359 Argument "\x{100}\x{200}" isn't numeric in multiplication (*) at - line 3.
 360 ########
 361 # sv.c
 362 use warnings 'numeric' ;
 363 $a = "\x{100}\x{200}"; $a = -$a;
 364 no warnings 'numeric' ;
 365 $a = "\x{100}\x{200}"; $a = -$a;
 366 EXPECT
 367 Argument "\x{100}\x{200}" isn't numeric in negation (-) at - line 3.