Policy/Variables/require_localized_punctuation_vars.t

29 local ($_, $RS) = ();
30 local $SIG{__DIE__} = sub { print "AAAAAAARRRRRGGGGHHHHH....\n"; };
36 --- dscr: Named magic variables, pass local
40 local @+ = ();
41 local $LAST_MATCH_END = ();
42 local @- = ();
43 local @LAST_MATCH_START = ();
44 local @ARGV = ();
45 local @F = ();
46 local @INC = ();
47 local @_ = ();
48 local @ARG = ();
49 local %OVERLOAD = ();
50 local %+ = ();
51 local %LAST_MATCH_END = ();
52 local %- = ();
53 local %LAST_MATCH_START = ();
54 local %! = ();
55 local %OS_ERROR = ();
56 local %ERRNO = ();
57 local %^H = ();
58 local %INC = ();
59 local %ENV = ();
60 local %SIG = ();
61 local $a = ();
62 local $b = ();
63 local $_ = ();
64 local $ARG = ();
65 local $& = ();
66 local $MATCH = ();
67 local $` = ();
68 local $PREMATCH = ();
69 local $' = ();
70 local $POSTMATCH = ();
71 local $+ = ();
72 local $LAST_PAREN_MATCH = ();
73 local $* = ();
74 local $MULTILINE_MATCHING = ();
75 local $. = ();
76 local $INPUT_LINE_NUMBER = ();
77 local $NR = ();
78 local $/ = ();
79 local $INPUT_RECORD_SEPARATOR = ();
80 local $RS = ();
81 local $| = ();
82 local $OUTPUT_AUTO_FLUSH = ();
83 local $, = ();
84 local $OUTPUT_FIELD_SEPARATOR = ();
85 local $OFS = ();
86 local $\ = ();
87 local $OUTPUT_RECORD_SEPARATOR = ();
88 local $ORS = ();
89 local $" = ();
90 local $LIST_SEPARATOR = ();
91 local $; = ();
92 local $SUBSCRIPT_SEPARATOR = ();
93 local $SUBSEP = ();
94 local $# = ();
95 local $OFMT = ();
96 local $% = ();
97 local $FORMAT_PAGE_NUMBER = ();
98 local $= = ();
99 local $FORMAT_LINES_PER_PAGE = ();
100 local $- = ();
101 local $FORMAT_LINES_LEFT = ();
102 local $~ = ();
103 local $FORMAT_NAME = ();
104 local $^ = ();
105 local $FORMAT_TOP_NAME = ();
106 local $: = ();
107 local $FORMAT_LINE_BREAK_CHARACTERS = ();
108 local $? = ();
109 local $CHILD_ERROR = ();
110 local $^CHILD_ERROR_NATIVE = ();
111 local $! = ();
112 local $ERRNO = ();
113 local $OS_ERROR = ();
114 local $@ = ();
115 local $EVAL_ERROR = ();
116 local $$ = ();
117 local $PROCESS_ID = ();
118 local $PID = ();
119 local $< = ();
120 local $REAL_USER_ID = ();
121 local $UID = ();
122 local $> = ();
123 local $EFFECTIVE_USER_ID = ();
124 local $EUID = ();
125 local $( = ();
126 local $REAL_GROUP_ID = ();
127 local $GID = ();
128 local $) = ();
129 local $EFFECTIVE_GROUP_ID = ();
130 local $EGID = ();
131 local $0 = ();
132 local $PROGRAM_NAME = ();
133 local $[ = ();
134 local $] = ();
135 local $^A = ();
136 local $ACCUMULATOR = ();
137 local $^C = ();
138 local $COMPILING = ();
139 local $^CHILD_ERROR_NATIVE = ();
140 local $^D = ();
141 local $DEBUGGING = ();
142 local $^E = ();
143 local $EXTENDED_OS_ERROR = ();
144 local $^ENCODING = ();
145 local $^F = ();
146 local $SYSTEM_FD_MAX = ();
147 local $^GLOBAL_PHASE = ();
148 local $^H = ();
149 local $^I = ();
150 local $INPLACE_EDIT = ();
151 local $^L = ();
152 local $FORMAT_FORMFEED = ();
153 local $^LAST_FH = ();
154 local $^M = ();
155 local $^MATCH = ();
156 local $^N = ();
157 local $LAST_SUBMATCH_RESULT = ();
158 local $^O = ();
159 local $OSNAME = ();
160 local $^OPEN = ();
161 local $^P = ();
162 local $PERLDB = ();
163 local $^PREMATCH = ();
164 local $^POSTMATCH = ();
165 local $^R = ();
166 local $LAST_REGEXP_CODE_RESULT = ();
167 local $^RE_DEBUG_FLAGS = ();
168 local $^RE_TRIE_MAXBUF = ();
169 local $^S = ();
170 local $EXCEPTIONS_BEING_CAUGHT = ();
171 local $^T = ();
172 local $BASETIME = ();
173 local $^TAINT = ();
174 local $^UNICODE = ();
175 local $^UTF8CACHE = ();
176 local $^UTF8LOCALE = ();
177 local $^V = ();
178 local $PERL_VERSION = ();
179 local $^W = ();
180 local $WARNING = ();
181 local $^WARNING_BITS = ();
182 local $^WIDE_SYSTEM_CALLS = ();
183 local $^WIN32_SLOPPY_STAT = ();
184 local $^X = ();
185 local $EXECUTABLE_NAME = ();
186 local $ARGV = ();
187 local *ARGV = ();
188 local *_ = ();
189 local *ARGVOUT = ();
190 local *DATA = ();
191 local *STDIN = ();
192 local *STDOUT = ();
193 local *STDERR = ();
196 --- dscr: Named magic variables, pass local()
200 local (@+) = ();
201 local ($LAST_MATCH_END) = ();
202 local (@-) = ();
203 local (@LAST_MATCH_START) = ();
204 local (@ARGV) = ();
205 local (@F) = ();
206 local (@INC) = ();
207 local (@_) = ();
208 local (@ARG) = ();
209 local (%OVERLOAD) = ();
210 local (%+) = ();
211 local (%LAST_MATCH_END) = ();
212 local (%-) = ();
213 local (%LAST_MATCH_START) = ();
214 local (%!) = ();
215 local (%OS_ERROR) = ();
216 local (%ERRNO) = ();
217 local (%^H) = ();
218 local (%INC) = ();
219 local (%ENV) = ();
220 local (%SIG) = ();
221 local ($a) = ();
222 local ($b) = ();
223 local ($_) = ();
224 local ($ARG) = ();
225 local ($&) = ();
226 local ($MATCH) = ();
227 local ($`) = ();
228 local ($PREMATCH) = ();
229 local ($') = ();
230 local ($POSTMATCH) = ();
231 local ($+) = ();
232 local ($LAST_PAREN_MATCH) = ();
233 local ($*) = ();
234 local ($MULTILINE_MATCHING) = ();
235 local ($.) = ();
236 local ($INPUT_LINE_NUMBER) = ();
237 local ($NR) = ();
238 local ($/) = ();
239 local ($INPUT_RECORD_SEPARATOR) = ();
240 local ($RS) = ();
241 local ($|) = ();
242 local ($OUTPUT_AUTO_FLUSH) = ();
243 local ($,) = ();
244 local ($OUTPUT_FIELD_SEPARATOR) = ();
245 local ($OFS) = ();
246 local ($\) = ();
247 local ($OUTPUT_RECORD_SEPARATOR) = ();
248 local ($ORS) = ();
249 local ($") = ();
250 local ($LIST_SEPARATOR) = ();
251 local ($;) = ();
252 local ($SUBSCRIPT_SEPARATOR) = ();
253 local ($SUBSEP) = ();
254 local ($#) = ();
255 local ($OFMT) = ();
256 local ($%) = ();
257 local ($FORMAT_PAGE_NUMBER) = ();
258 local ($=) = ();
259 local ($FORMAT_LINES_PER_PAGE) = ();
260 local ($-) = ();
261 local ($FORMAT_LINES_LEFT) = ();
262 local ($~) = ();
263 local ($FORMAT_NAME) = ();
264 local ($^) = ();
265 local ($FORMAT_TOP_NAME) = ();
266 local ($:) = ();
267 local ($FORMAT_LINE_BREAK_CHARACTERS) = ();
268 local ($?) = ();
269 local ($CHILD_ERROR) = ();
270 local ($^CHILD_ERROR_NATIVE) = ();
271 local ($!) = ();
272 local ($ERRNO) = ();
273 local ($OS_ERROR) = ();
274 local ($@) = ();
275 local ($EVAL_ERROR) = ();
276 local ($$) = ();
277 local ($PROCESS_ID) = ();
278 local ($PID) = ();
279 local ($<) = ();
280 local ($REAL_USER_ID) = ();
281 local ($UID) = ();
282 local ($>) = ();
283 local ($EFFECTIVE_USER_ID) = ();
284 local ($EUID) = ();
285 local ($() = ();
286 local ($REAL_GROUP_ID) = ();
287 local ($GID) = ();
288 local ($)) = ();
289 local ($EFFECTIVE_GROUP_ID) = ();
290 local ($EGID) = ();
291 local ($0) = ();
292 local ($PROGRAM_NAME) = ();
293 local ($[) = ();
294 local ($]) = ();
295 local ($^A) = ();
296 local ($ACCUMULATOR) = ();
297 local ($^C) = ();
298 local ($COMPILING) = ();
299 local ($^CHILD_ERROR_NATIVE) = ();
300 local ($^D) = ();
301 local ($DEBUGGING) = ();
302 local ($^E) = ();
303 local ($EXTENDED_OS_ERROR) = ();
304 local ($^ENCODING) = ();
305 local ($^F) = ();
306 local ($SYSTEM_FD_MAX) = ();
307 local ($^GLOBAL_PHASE) = ();
308 local ($^H) = ();
309 local ($^I) = ();
310 local ($INPLACE_EDIT) = ();
311 local ($^L) = ();
312 local ($FORMAT_FORMFEED) = ();
313 local ($^LAST_FH) = ();
314 local ($^M) = ();
315 local ($^MATCH) = ();
316 local ($^N) = ();
317 local ($LAST_SUBMATCH_RESULT) = ();
318 local ($^O) = ();
319 local ($OSNAME) = ();
320 local ($^OPEN) = ();
321 local ($^P) = ();
322 local ($PERLDB) = ();
323 local ($^PREMATCH) = ();
324 local ($^POSTMATCH) = ();
325 local ($^R) = ();
326 local ($LAST_REGEXP_CODE_RESULT) = ();
327 local ($^RE_DEBUG_FLAGS) = ();
328 local ($^RE_TRIE_MAXBUF) = ();
329 local ($^S) = ();
330 local ($EXCEPTIONS_BEING_CAUGHT) = ();
331 local ($^T) = ();
332 local ($BASETIME) = ();
333 local ($^TAINT) = ();
334 local ($^UNICODE) = ();
335 local ($^UTF8CACHE) = ();
336 local ($^UTF8LOCALE) = ();
337 local ($^V) = ();
338 local ($PERL_VERSION) = ();
339 local ($^W) = ();
340 local ($WARNING) = ();
341 local ($^WARNING_BITS) = ();
342 local ($^WIDE_SYSTEM_CALLS) = ();
343 local ($^WIN32_SLOPPY_STAT) = ();
344 local ($^X) = ();
345 local ($EXECUTABLE_NAME) = ();
346 local ($ARGV) = ();
347 local (*ARGV) = ();
348 local (*_) = ();
349 local (*ARGVOUT) = ();
350 local (*DATA) = ();
351 local (*STDIN) = ();
352 local (*STDOUT) = ();
353 local (*STDERR) = ();
356 --- dscr: Named magic variables, pass (local)
360 (local @+) = ();
361 (local $LAST_MATCH_END) = ();
362 (local @-) = ();
363 (local @LAST_MATCH_START) = ();
364 (local @ARGV) = ();
365 (local @F) = ();
366 (local @INC) = ();
367 (local @_) = ();
368 (local @ARG) = ();
369 (local %OVERLOAD) = ();
370 (local %+) = ();
371 (local %LAST_MATCH_END) = ();
372 (local %-) = ();
373 (local %LAST_MATCH_START) = ();
374 (local %!) = ();
375 (local %OS_ERROR) = ();
376 (local %ERRNO) = ();
377 (local %^H) = ();
378 (local %INC) = ();
379 (local %ENV) = ();
380 (local %SIG) = ();
381 (local $a) = ();
382 (local $b) = ();
383 (local $_) = ();
384 (local $ARG) = ();
385 (local $&) = ();
386 (local $MATCH) = ();
387 (local $`) = ();
388 (local $PREMATCH) = ();
389 (local $') = ();
390 (local $POSTMATCH) = ();
391 (local $+) = ();
392 (local $LAST_PAREN_MATCH) = ();
393 (local $*) = ();
394 (local $MULTILINE_MATCHING) = ();
395 (local $.) = ();
396 (local $INPUT_LINE_NUMBER) = ();
397 (local $NR) = ();
398 (local $/) = ();
399 (local $INPUT_RECORD_SEPARATOR) = ();
400 (local $RS) = ();
401 (local $|) = ();
402 (local $OUTPUT_AUTO_FLUSH) = ();
403 (local $,) = ();
404 (local $OUTPUT_FIELD_SEPARATOR) = ();
405 (local $OFS) = ();
406 (local $\) = ();
407 (local $OUTPUT_RECORD_SEPARATOR) = ();
408 (local $ORS) = ();
409 (local $") = ();
410 (local $LIST_SEPARATOR) = ();
411 (local $;) = ();
412 (local $SUBSCRIPT_SEPARATOR) = ();
413 (local $SUBSEP) = ();
414 (local $#) = ();
415 (local $OFMT) = ();
416 (local $%) = ();
417 (local $FORMAT_PAGE_NUMBER) = ();
418 (local $=) = ();
419 (local $FORMAT_LINES_PER_PAGE) = ();
420 (local $-) = ();
421 (local $FORMAT_LINES_LEFT) = ();
422 (local $~) = ();
423 (local $FORMAT_NAME) = ();
424 (local $^) = ();
425 (local $FORMAT_TOP_NAME) = ();
426 (local $:) = ();
427 (local $FORMAT_LINE_BREAK_CHARACTERS) = ();
428 (local $?) = ();
429 (local $CHILD_ERROR) = ();
430 (local $^CHILD_ERROR_NATIVE) = ();
431 (local $!) = ();
432 (local $ERRNO) = ();
433 (local $OS_ERROR) = ();
434 (local $@) = ();
435 (local $EVAL_ERROR) = ();
436 (local $$) = ();
437 (local $PROCESS_ID) = ();
438 (local $PID) = ();
439 (local $<) = ();
440 (local $REAL_USER_ID) = ();
441 (local $UID) = ();
442 (local $>) = ();
443 (local $EFFECTIVE_USER_ID) = ();
444 (local $EUID) = ();
445 (local $() = ();
446 (local $REAL_GROUP_ID) = ();
447 (local $GID) = ();
448 (local $)) = ();
449 (local $EFFECTIVE_GROUP_ID) = ();
450 (local $EGID) = ();
451 (local $0) = ();
452 (local $PROGRAM_NAME) = ();
453 (local $[) = ();
454 (local $]) = ();
455 (local $^A) = ();
456 (local $ACCUMULATOR) = ();
457 (local $^C) = ();
458 (local $COMPILING) = ();
459 (local $^CHILD_ERROR_NATIVE) = ();
460 (local $^D) = ();
461 (local $DEBUGGING) = ();
462 (local $^E) = ();
463 (local $EXTENDED_OS_ERROR) = ();
464 (local $^ENCODING) = ();
465 (local $^F) = ();
466 (local $SYSTEM_FD_MAX) = ();
467 (local $^GLOBAL_PHASE) = ();
468 (local $^H) = ();
469 (local $^I) = ();
470 (local $INPLACE_EDIT) = ();
471 (local $^L) = ();
472 (local $FORMAT_FORMFEED) = ();
473 (local $^LAST_FH) = ();
474 (local $^M) = ();
475 (local $^MATCH) = ();
476 (local $^N) = ();
477 (local $LAST_SUBMATCH_RESULT) = ();
478 (local $^O) = ();
479 (local $OSNAME) = ();
480 (local $^OPEN) = ();
481 (local $^P) = ();
482 (local $PERLDB) = ();
483 (local $^PREMATCH) = ();
484 (local $^POSTMATCH) = ();
485 (local $^R) = ();
486 (local $LAST_REGEXP_CODE_RESULT) = ();
487 (local $^RE_DEBUG_FLAGS) = ();
488 (local $^RE_TRIE_MAXBUF) = ();
489 (local $^S) = ();
490 (local $EXCEPTIONS_BEING_CAUGHT) = ();
491 (local $^T) = ();
492 (local $BASETIME) = ();
493 (local $^TAINT) = ();
494 (local $^UNICODE) = ();
495 (local $^UTF8CACHE) = ();
496 (local $^UTF8LOCALE) = ();
497 (local $^V) = ();
498 (local $PERL_VERSION) = ();
499 (local $^W) = ();
500 (local $WARNING) = ();
501 (local $^WARNING_BITS) = ();
502 (local $^WIDE_SYSTEM_CALLS) = ();
503 (local $^WIN32_SLOPPY_STAT) = ();
504 (local $^X) = ();
505 (local $EXECUTABLE_NAME) = ();
506 (local $ARGV) = ();
507 (local *ARGV) = ();
508 (local *_) = ();
509 (local *ARGVOUT) = ();
510 (local *DATA) = ();
511 (local *STDIN) = ();
512 (local *STDOUT) = ();
513 (local *STDERR) = ();
516 --- dscr: Named magic variables, pass = (local) =
520 @foo = (local @+) = ();
521 @foo = (local $LAST_MATCH_END) = ();
522 @foo = (local @-) = ();
523 @foo = (local @LAST_MATCH_START) = ();
524 @foo = (local @ARGV) = ();
525 @foo = (local @F) = ();
526 @foo = (local @INC) = ();
527 @foo = (local @_) = ();
528 @foo = (local @ARG) = ();
529 @foo = (local %OVERLOAD) = ();
530 @foo = (local %+) = ();
531 @foo = (local %LAST_MATCH_END) = ();
532 @foo = (local %-) = ();
533 @foo = (local %LAST_MATCH_START) = ();
534 @foo = (local %!) = ();
535 @foo = (local %OS_ERROR) = ();
536 @foo = (local %ERRNO) = ();
537 @foo = (local %^H) = ();
538 @foo = (local %INC) = ();
539 @foo = (local %ENV) = ();
540 @foo = (local %SIG) = ();
541 @foo = (local $a) = ();
542 @foo = (local $b) = ();
543 @foo = (local $_) = ();
544 @foo = (local $ARG) = ();
545 @foo = (local $&) = ();
546 @foo = (local $MATCH) = ();
547 @foo = (local $`) = ();
548 @foo = (local $PREMATCH) = ();
549 @foo = (local $') = ();
550 @foo = (local $POSTMATCH) = ();
551 @foo = (local $+) = ();
552 @foo = (local $LAST_PAREN_MATCH) = ();
553 @foo = (local $*) = ();
554 @foo = (local $MULTILINE_MATCHING) = ();
555 @foo = (local $.) = ();
556 @foo = (local $INPUT_LINE_NUMBER) = ();
557 @foo = (local $NR) = ();
558 @foo = (local $/) = ();
559 @foo = (local $INPUT_RECORD_SEPARATOR) = ();
560 @foo = (local $RS) = ();
561 @foo = (local $|) = ();
562 @foo = (local $OUTPUT_AUTO_FLUSH) = ();
563 @foo = (local $,) = ();
564 @foo = (local $OUTPUT_FIELD_SEPARATOR) = ();
565 @foo = (local $OFS) = ();
566 @foo = (local $\) = ();
567 @foo = (local $OUTPUT_RECORD_SEPARATOR) = ();
568 @foo = (local $ORS) = ();
569 @foo = (local $") = ();
570 @foo = (local $LIST_SEPARATOR) = ();
571 @foo = (local $;) = ();
572 @foo = (local $SUBSCRIPT_SEPARATOR) = ();
573 @foo = (local $SUBSEP) = ();
574 @foo = (local $#) = ();
575 @foo = (local $OFMT) = ();
576 @foo = (local $%) = ();
577 @foo = (local $FORMAT_PAGE_NUMBER) = ();
578 @foo = (local $=) = ();
579 @foo = (local $FORMAT_LINES_PER_PAGE) = ();
580 @foo = (local $-) = ();
581 @foo = (local $FORMAT_LINES_LEFT) = ();
582 @foo = (local $~) = ();
583 @foo = (local $FORMAT_NAME) = ();
584 @foo = (local $^) = ();
585 @foo = (local $FORMAT_TOP_NAME) = ();
586 @foo = (local $:) = ();
587 @foo = (local $FORMAT_LINE_BREAK_CHARACTERS) = ();
588 @foo = (local $?) = ();
589 @foo = (local $CHILD_ERROR) = ();
590 @foo = (local $^CHILD_ERROR_NATIVE) = ();
591 @foo = (local $!) = ();
592 @foo = (local $ERRNO) = ();
593 @foo = (local $OS_ERROR) = ();
594 @foo = (local $@) = ();
595 @foo = (local $EVAL_ERROR) = ();
596 @foo = (local $$) = ();
597 @foo = (local $PROCESS_ID) = ();
598 @foo = (local $PID) = ();
599 @foo = (local $<) = ();
600 @foo = (local $REAL_USER_ID) = ();
601 @foo = (local $UID) = ();
602 @foo = (local $>) = ();
603 @foo = (local $EFFECTIVE_USER_ID) = ();
604 @foo = (local $EUID) = ();
605 @foo = (local $() = ();
606 @foo = (local $REAL_GROUP_ID) = ();
607 @foo = (local $GID) = ();
608 @foo = (local $)) = ();
609 @foo = (local $EFFECTIVE_GROUP_ID) = ();
610 @foo = (local $EGID) = ();
611 @foo = (local $0) = ();
612 @foo = (local $PROGRAM_NAME) = ();
613 @foo = (local $[) = ();
614 @foo = (local $]) = ();
615 @foo = (local $^A) = ();
616 @foo = (local $ACCUMULATOR) = ();
617 @foo = (local $^C) = ();
618 @foo = (local $COMPILING) = ();
619 @foo = (local $^CHILD_ERROR_NATIVE) = ();
620 @foo = (local $^D) = ();
621 @foo = (local $DEBUGGING) = ();
622 @foo = (local $^E) = ();
623 @foo = (local $EXTENDED_OS_ERROR) = ();
624 @foo = (local $^ENCODING) = ();
625 @foo = (local $^F) = ();
626 @foo = (local $SYSTEM_FD_MAX) = ();
627 @foo = (local $^GLOBAL_PHASE) = ();
628 @foo = (local $^H) = ();
629 @foo = (local $^I) = ();
630 @foo = (local $INPLACE_EDIT) = ();
631 @foo = (local $^L) = ();
632 @foo = (local $FORMAT_FORMFEED) = ();
633 @foo = (local $^LAST_FH) = ();
634 @foo = (local $^M) = ();
635 @foo = (local $^MATCH) = ();
636 @foo = (local $^N) = ();
637 @foo = (local $LAST_SUBMATCH_RESULT) = ();
638 @foo = (local $^O) = ();
639 @foo = (local $OSNAME) = ();
640 @foo = (local $^OPEN) = ();
641 @foo = (local $^P) = ();
642 @foo = (local $PERLDB) = ();
643 @foo = (local $^PREMATCH) = ();
644 @foo = (local $^POSTMATCH) = ();
645 @foo = (local $^R) = ();
646 @foo = (local $LAST_REGEXP_CODE_RESULT) = ();
647 @foo = (local $^RE_DEBUG_FLAGS) = ();
648 @foo = (local $^RE_TRIE_MAXBUF) = ();
649 @foo = (local $^S) = ();
650 @foo = (local $EXCEPTIONS_BEING_CAUGHT) = ();
651 @foo = (local $^T) = ();
652 @foo = (local $BASETIME) = ();
653 @foo = (local $^TAINT) = ();
654 @foo = (local $^UNICODE) = ();
655 @foo = (local $^UTF8CACHE) = ();
656 @foo = (local $^UTF8LOCALE) = ();
657 @foo = (local $^V) = ();
658 @foo = (local $PERL_VERSION) = ();
659 @foo = (local $^W) = ();
660 @foo = (local $WARNING) = ();
661 @foo = (local $^WARNING_BITS) = ();
662 @foo = (local $^WIDE_SYSTEM_CALLS) = ();
663 @foo = (local $^WIN32_SLOPPY_STAT) = ();
664 @foo = (local $^X) = ();
665 @foo = (local $EXECUTABLE_NAME) = ();
666 @foo = (local $ARGV) = ();
667 @foo = (local *ARGV) = ();
668 @foo = (local *_) = ();
669 @foo = (local *ARGVOUT) = ();
670 @foo = (local *DATA) = ();
671 @foo = (local *STDIN) = ();
672 @foo = (local *STDOUT) = ();
673 @foo = (local *STDERR) = ();
676 --- dscr: Named magic variables, pass local dereferenced
680 local $+[0] = 'bar';
681 local $-[0] = 'bar';
682 local $LAST_MATCH_START[0] = 'bar';
683 local $ARGV[0] = 'bar';
684 local $F[0] = 'bar';
685 local $INC[0] = 'bar';
686 local $_[0] = 'bar';
687 local $ARG[0] = 'bar';
688 local $OVERLOAD{foo} = 'bar';
689 local $+{foo} = 'bar';
690 local $LAST_MATCH_END{foo} = 'bar';
691 local $-{foo} = 'bar';
692 local $LAST_MATCH_START{foo} = 'bar';
693 local $!{foo} = 'bar';
694 local $OS_ERROR{foo} = 'bar';
695 local $ERRNO{foo} = 'bar';
696 local $^H{foo} = 'bar';
697 local $INC{foo} = 'bar';
698 local $ENV{foo} = 'bar';
699 local $SIG{foo} = 'bar';
702 --- dscr: Named magic variables, pass non-local but in exception list
859 --- dscr: Named magic variables, fail non-local, non-carats
979 --- dscr: Named magic variables, fail non-local, carats
1022 --- dscr: Named magic variables, fail non-local, carats, no space
1065 --- dscr: Named magic variables, fail = (non-local) =
1222 --- dscr: Named magic variables, fail (non-local)
1379 --- dscr: Named magic variables, fail non-local dereferenced