t/pragma/warn/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]
  42       my $a = rindex "a\xff bc ", "bc" ;
  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 (.) 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 'redefine' ;
 230 sub fred {}
 231 sub joe {}
 232 *fred = \&joe ;
 233 no warnings 'redefine' ;
 234 sub jim {}
 235 *jim = \&joe ;
 236 EXPECT
 237 Subroutine fred redefined at - line 5.
 238 ########
 239 # sv.c
 240 use warnings 'printf' ;
 241 open F, ">".($^O eq 'VMS'? 'NL:' : '/dev/null') ;
 242 printf F "%z\n" ;
 243 my $a = sprintf "%z" ;
 244 printf F "%" ;
 245 $a = sprintf "%" ;
 246 printf F "%\x02" ;
 247 $a = sprintf "%\x02" ;
 248 no warnings 'printf' ;
 249 printf F "%z\n" ;
 250 $a = sprintf "%z" ;
 251 printf F "%" ;
 252 $a = sprintf "%" ;
 253 printf F "%\x02" ;
 254 $a = sprintf "%\x02" ;
 255 EXPECT
 256 Invalid conversion in sprintf: "%z" at - line 5.
 257 Invalid conversion in sprintf: end of string at - line 7.
 258 Invalid conversion in sprintf: "%\002" at - line 9.
 259 Invalid conversion in printf: "%z" at - line 4.
 260 Invalid conversion in printf: end of string at - line 6.
 261 Invalid conversion in printf: "%\002" at - line 8.
 262 ########
 263 # sv.c
 264 use warnings 'unsafe' ;
 265 *a = undef ;
 266 no warnings 'unsafe' ;
 267 *b = undef ;
 268 EXPECT
 269 Undefined value assigned to typeglob at - line 3.
 270 ########
 271 # sv.c
 272 use utf8 ;
 273 $^W =0 ;
 274 {
 275   use warnings 'utf8' ;
 276   my $a = rindex "a\xff bc ", "bc" ;
 277   no warnings 'utf8' ;
 278   $a = rindex "a\xff bc ", "bc" ;
 279 }
 280 my $a = rindex "a\xff bc ", "bc" ;
 281 EXPECT
 282 \xff will produce malformed UTF-8 character; use \x{ff} for that at - line 6.
 283 Malformed UTF-8 character at - line 6.
 284 Malformed UTF-8 character at - line 10.
 285 ########
 286 # sv.c
 287 use warnings 'misc';
 288 use Config;
 289 BEGIN {
 290     unless ($Config{ccflags} =~ /Y2KWARN/) {
 291         print "SKIPPED\n# perl not built with -DPERL_Y2KWARN";
 292         exit 0;
 293     }
 294     $|=1;
 295 }
 296 my $x;
 297 my $yy = 78;
 298 $x     = printf  "19%02d\n", $yy;
 299 $x     = sprintf "#19%02d\n", $yy;
 300 $x     = printf  " 19%02d\n", 78;
 301 $x     = sprintf "19%02d\n", 78;
 302 $x     = printf  "319%02d\n", $yy;
 303 $x     = sprintf "319%02d\n", $yy;
 304 no warnings 'misc';
 305 $x     = printf  "19%02d\n", $yy;
 306 $x     = sprintf "19%02d\n", $yy;
 307 $x     = printf  "19%02d\n", 78;
 308 $x     = sprintf "19%02d\n", 78;
 309 EXPECT
 310 Possible Y2K bug: %d format string following '19' at - line 16.
 311 Possible Y2K bug: %d format string following '19' at - line 13.
 312 1978
 313 Possible Y2K bug: %d format string following '19' at - line 14.
 314 Possible Y2K bug: %d format string following '19' at - line 15.
 315  1978
 316 31978
 317 1978
 318 1978