t/lib/strict/refs

   1 Check strict refs functionality
   2
   3 __END__
   4
   5 # no strict, should build & run ok.
   6 my $fred ;
   7 $b = "fred" ;
   8 $a = $$b ;
   9 $c = ${"def"} ;
  10 $c = @{"def"} ;
  11 $c = %{"def"} ;
  12 $c = *{"def"} ;
  13 $c = \&{"def"} ;
  14 $c = def->[0];
  15 $c = def->{xyz};
  16 EXPECT
  17
  18 ########
  19
  20 # strict refs - error
  21 use strict ;
  22 my $str="A::Really::Big::Package::Name::To::Use";
  23 $str->{foo}= 1;
  24 EXPECT
  25 Can't use string ("A::Really::Big::Package::Name::T"...) as a HASH ref while "strict refs" in use at - line 5.
  26 ########
  27
  28 # strict refs - error
  29 use strict ;
  30 "A::Really::Big::Package::Name::To::Use" =~ /(.*)/;
  31 ${$1};
  32 EXPECT
  33 Can't use string ("A::Really::Big::Package::Name::T"...) as a SCALAR ref while "strict refs" in use at - line 5.
  34 ########
  35
  36 # strict refs - error
  37 use strict ;
  38 *{"A::Really::Big::Package::Name::To::Use"; }
  39 EXPECT
  40 Can't use string ("A::Really::Big::Package::Name::T"...) as a symbol ref while "strict refs" in use at - line 4.
  41 ########
  42
  43 # strict refs - error
  44 use strict ;
  45 "A::Really::Big::Package::Name::To::Use" =~ /(.*)/;
  46 *{$1}
  47 EXPECT
  48 Can't use string ("A::Really::Big::Package::Name::T"...) as a symbol ref while "strict refs" in use at - line 5.
  49 ########
  50
  51 # strict refs - error
  52 use strict ;
  53 my $fred ;
  54 my $a = ${"fred"} ;
  55 EXPECT
  56 Can't use string ("fred") as a SCALAR ref while "strict refs" in use at - line 5.
  57 ########
  58
  59 # strict refs - error
  60 use strict 'refs' ;
  61 my $fred ;
  62 my $a = ${"fred"} ;
  63 EXPECT
  64 Can't use string ("fred") as a SCALAR ref while "strict refs" in use at - line 5.
  65 ########
  66
  67 # strict refs - error
  68 use strict 'refs' ;
  69 my $fred ;
  70 my $b = "fred" ;
  71 my $a = $$b ;
  72 EXPECT
  73 Can't use string ("fred") as a SCALAR ref while "strict refs" in use at - line 6.
  74 ########
  75
  76 # strict refs - error
  77 use strict 'refs' ;
  78 my $b ;
  79 my $a = $$b ;
  80 EXPECT
  81 Can't use an undefined value as a SCALAR reference at - line 5.
  82 ########
  83
  84 # strict refs - error
  85 use strict 'refs' ;
  86 my $b ;
  87 my $a = @$b ;
  88 EXPECT
  89 Can't use an undefined value as an ARRAY reference at - line 5.
  90 ########
  91
  92 # strict refs - error
  93 use strict 'refs' ;
  94 my $b ;
  95 my $a = %$b ;
  96 EXPECT
  97 Can't use an undefined value as a HASH reference at - line 5.
  98 ########
  99
 100 # strict refs - error
 101 use strict 'refs' ;
 102 my $b ;
 103 my $a = *$b ;
 104 EXPECT
 105 Can't use an undefined value as a symbol reference at - line 5.
 106 ########
 107
 108 # strict refs - error
 109 use strict 'refs' ;
 110 my $a = fred->[0] ;
 111 EXPECT
 112 Can't use bareword ("fred") as an ARRAY ref while "strict refs" in use at - line 4.
 113 ########
 114
 115 # strict refs - error
 116 use strict 'refs' ;
 117 my $a = fred->{barney} ;
 118 EXPECT
 119 Can't use bareword ("fred") as a HASH ref while "strict refs" in use at - line 4.
 120 ########
 121
 122 # strict refs - no error
 123 use strict ;
 124 no strict 'refs' ;
 125 my $fred ;
 126 my $b = "fred" ;
 127 my $a = $$b ;
 128 use strict 'refs' ;
 129 EXPECT
 130
 131 ########
 132
 133 # strict refs - no error
 134 use strict qw(subs vars) ;
 135 my $fred ;
 136 my $b = "fred" ;
 137 my $a = $$b ;
 138 use strict 'refs' ;
 139 EXPECT
 140
 141 ########
 142
 143 # strict refs - no error
 144 my $fred ;
 145 my $b = "fred" ;
 146 my $a = $$b ;
 147 use strict 'refs' ;
 148 EXPECT
 149
 150 ########
 151
 152 # strict refs - no error
 153 use strict 'refs' ;
 154 my $fred ;
 155 my $b = \$fred ;
 156 my $a = $$b ;
 157 EXPECT
 158
 159 ########
 160
 161 # Check runtime scope of strict refs pragma
 162 use strict 'refs';
 163 my $fred ;
 164 my $b = "fred" ;
 165 {
 166     no strict ;
 167     my $a = $$b ;
 168 }
 169 my $a = $$b ;
 170 EXPECT
 171 Can't use string ("fred") as a SCALAR ref while "strict refs" in use at - line 10.
 172 ########
 173
 174 # Check runtime scope of strict refs pragma
 175 no strict ;
 176 my $fred ;
 177 my $b = "fred" ;
 178 {
 179     use strict 'refs' ;
 180     my $a = $$b ;
 181 }
 182 my $a = $$b ;
 183 EXPECT
 184 Can't use string ("fred") as a SCALAR ref while "strict refs" in use at - line 8.
 185 ########
 186
 187 # Check runtime scope of strict refs pragma
 188 no strict ;
 189 my $fred ;
 190 my $b = "fred" ;
 191 {
 192     use strict 'refs' ;
 193     $a = sub { my $c = $$b ; }
 194 }
 195 &$a ;
 196 EXPECT
 197 Can't use string ("fred") as a SCALAR ref while "strict refs" in use at - line 8.
 198 ########
 199
 200
 201 --FILE-- abc
 202 my $a = ${"Fred"} ;
 203 1;
 204 --FILE--
 205 use strict 'refs' ;
 206 require "./abc";
 207 EXPECT
 208
 209 ########
 210
 211 --FILE-- abc
 212 use strict 'refs' ;
 213 1;
 214 --FILE--
 215 require "./abc";
 216 my $a = ${"Fred"} ;
 217 EXPECT
 218
 219 ########
 220
 221 --FILE-- abc
 222 use strict 'refs' ;
 223 my $a = ${"Fred"} ;
 224 1;
 225 --FILE--
 226 ${"Fred"} ;
 227 require "./abc";
 228 EXPECT
 229 Can't use string ("Fred") as a SCALAR ref while "strict refs" in use at ./abc line 2.
 230 Compilation failed in require at - line 2.
 231 ########
 232
 233 --FILE-- abc.pm
 234 use strict 'refs' ;
 235 my $a = ${"Fred"} ;
 236 1;
 237 --FILE--
 238 my $a = ${"Fred"} ;
 239 use abc;
 240 EXPECT
 241 Can't use string ("Fred") as a SCALAR ref while "strict refs" in use at abc.pm line 2.
 242 Compilation failed in require at - line 2.
 243 BEGIN failed--compilation aborted at - line 2.
 244 ########
 245
 246 # Check scope of pragma with eval
 247 no strict ;
 248 eval {
 249     my $a = ${"Fred"} ;
 250 };
 251 print STDERR $@ ;
 252 my $a = ${"Fred"} ;
 253 EXPECT
 254
 255 ########
 256
 257 # Check scope of pragma with eval
 258 no strict ;
 259 eval {
 260     use strict 'refs' ;
 261     my $a = ${"Fred"} ;
 262 };
 263 print STDERR $@ ;
 264 my $a = ${"Fred"} ;
 265 EXPECT
 266 Can't use string ("Fred") as a SCALAR ref while "strict refs" in use at - line 6.
 267 ########
 268
 269 # Check scope of pragma with eval
 270 use strict 'refs' ;
 271 eval {
 272     my $a = ${"Fred"} ;
 273 };
 274 print STDERR $@ ;
 275 EXPECT
 276 Can't use string ("Fred") as a SCALAR ref while "strict refs" in use at - line 5.
 277 ########
 278
 279 # Check scope of pragma with eval
 280 use strict 'refs' ;
 281 eval {
 282     no strict ;
 283     my $a = ${"Fred"} ;
 284 };
 285 print STDERR $@ ;
 286 my $a = ${"Fred"} ;
 287 EXPECT
 288 Can't use string ("Fred") as a SCALAR ref while "strict refs" in use at - line 9.
 289 ########
 290
 291 # Check scope of pragma with eval
 292 no strict ;
 293 eval '
 294     my $a = ${"Fred"} ;
 295 '; print STDERR $@ ;
 296 my $a = ${"Fred"} ;
 297 EXPECT
 298
 299 ########
 300
 301 # Check scope of pragma with eval
 302 no strict ;
 303 eval q[
 304     use strict 'refs' ;
 305     my $a = ${"Fred"} ;
 306 ]; print STDERR $@;
 307 EXPECT
 308 Can't use string ("Fred") as a SCALAR ref while "strict refs" in use at (eval 1) line 3.
 309 ########
 310
 311 # Check scope of pragma with eval
 312 use strict 'refs' ;
 313 eval '
 314     my $a = ${"Fred"} ;
 315 '; print STDERR $@ ;
 316 EXPECT
 317 Can't use string ("Fred") as a SCALAR ref while "strict refs" in use at (eval 1) line 2.
 318 ########
 319
 320 # Check scope of pragma with eval
 321 use strict 'refs' ;
 322 eval '
 323     no strict ;
 324     my $a = ${"Fred"} ;
 325 '; print STDERR $@;
 326 my $a = ${"Fred"} ;
 327 EXPECT
 328 Can't use string ("Fred") as a SCALAR ref while "strict refs" in use at - line 8.
 329 ########
 330 # [perl #26910] hints not propagated into (?{...})
 331 use strict 'refs';
 332 /(?{${"foo"}++})/;
 333 EXPECT
 334 Can't use string ("foo") as a SCALAR ref while "strict refs" in use at - line 3.
 335 ########
 336 # [perl #37886] strict 'refs' doesn't apply inside defined
 337 use strict 'refs';
 338 my $x = "foo";
 339 defined $$x;
 340 EXPECT
 341 Can't use string ("foo") as a SCALAR ref while "strict refs" in use at - line 4.
 342 ########
 343 # [perl #74168] Assertion failed: (SvTYPE(_svcur) >= SVt_PV), function Perl_softref2xv, file pp.c, line 240.
 344 use strict 'refs';
 345 my $o = 1 ; $o->{1} ;
 346 EXPECT
 347 Can't use string ("1") as a HASH ref while "strict refs" in use at - line 3.
 348 ########
 349 # pp_hot.c [pp_entersub]
 350 use strict 'refs';
 351 use utf8;
 352 use open qw( :utf8 :std );
 353 &{"Ｆ"};
 354 EXPECT
 355 Can't use string ("Ｆ") as a subroutine ref while "strict refs" in use at - line 5.