t/pragma/warn-global

   1 Check existing $^W functionality
   2
   3 __END__
   4
   5 # warnable code, warnings disabled
   6 $a =+ 3 ;
   7 EXPECT
   8
   9 ########
  10 -w
  11 # warnable code, warnings enabled via command line switch
  12 $a =+ 3 ;
  13 EXPECT
  14 Reversed += operator at - line 3.
  15 ########
  16 #! perl -w
  17 # warnable code, warnings enabled via #! line
  18 $a =+ 3 ;
  19 EXPECT
  20 Reversed += operator at - line 3.
  21 ########
  22
  23 # warnable code, warnings enabled via compile time $^W
  24 BEGIN { $^W = 1 }
  25 $a =+ 3 ;
  26 EXPECT
  27 Reversed += operator at - line 4.
  28 ########
  29
  30 # compile-time warnable code, warnings enabled via runtime $^W
  31 # so no warning printed.
  32 $^W = 1 ;
  33 $a =+ 3 ;
  34 EXPECT
  35
  36 ########
  37
  38 # warnable code, warnings enabled via runtime $^W
  39 $^W = 1 ;
  40 my $b ; chop $b ;
  41 EXPECT
  42 Use of uninitialized value at - line 4.
  43 ########
  44
  45 # warnings enabled at compile time, disabled at run time
  46 BEGIN { $^W = 1 }
  47 $^W = 0 ;
  48 my $b ; chop $b ;
  49 EXPECT
  50
  51 ########
  52
  53 # warnings disabled at compile time, enabled at run time
  54 BEGIN { $^W = 0 }
  55 $^W = 1 ;
  56 my $b ; chop $b ;
  57 EXPECT
  58 Use of uninitialized value at - line 5.
  59 ########
  60 -w
  61 --FILE-- abcd
  62 my $b ; chop $b ;
  63 1 ;
  64 --FILE--
  65 require "./abcd";
  66 EXPECT
  67 Use of uninitialized value at ./abcd line 1.
  68 ########
  69
  70 --FILE-- abcd
  71 my $b ; chop $b ;
  72 1 ;
  73 --FILE--
  74 #! perl -w
  75 require "./abcd";
  76 EXPECT
  77 Use of uninitialized value at ./abcd line 1.
  78 ########
  79
  80 --FILE-- abcd
  81 my $b ; chop $b ;
  82 1 ;
  83 --FILE--
  84 $^W =1 ;
  85 require "./abcd";
  86 EXPECT
  87 Use of uninitialized value at ./abcd line 1.
  88 ########
  89
  90 --FILE-- abcd
  91 $^W = 0;
  92 my $b ; chop $b ;
  93 1 ;
  94 --FILE--
  95 $^W =1 ;
  96 require "./abcd";
  97 EXPECT
  98
  99 ########
 100
 101 --FILE-- abcd
 102 $^W = 1;
 103 1 ;
 104 --FILE--
 105 $^W =0 ;
 106 require "./abcd";
 107 my $b ; chop $b ;
 108 EXPECT
 109 Use of uninitialized value at - line 3.
 110 ########
 111
 112 $^W = 1;
 113 eval "my $b ; chop $b ;" ;
 114 EXPECT
 115 Use of uninitialized value at - line 3.
 116 Use of uninitialized value at - line 3.
 117 ########
 118
 119 eval "$^W = 1;" ;
 120 my $b ; chop $b ;
 121 EXPECT
 122
 123 ########
 124
 125 eval {$^W = 1;} ;
 126 my $b ; chop $b ;
 127 EXPECT
 128 Use of uninitialized value at - line 3.
 129 ########
 130
 131 {
 132     local ($^W) = 1;
 133 }
 134 my $b ; chop $b ;
 135 EXPECT
 136
 137 ########
 138
 139 my $a ; chop $a ;
 140 {
 141     local ($^W) = 1;
 142     my $b ; chop $b ;
 143 }
 144 my $c ; chop $c ;
 145 EXPECT
 146 Use of uninitialized value at - line 5.