1# DO NOT EDIT!!! This test suite generated by t/Policy/Variables/require_localized_punctuation_vars.PL
2
3use strict;
4use warnings;
5use Perl::Lint::Policy::Variables::RequireLocalizedPunctuationVars;
6use t::Policy::Util qw/fetch_violations/;
7use Test::Base::Less;
8
9my $class_name = 'Variables::RequireLocalizedPunctuationVars';
10
11filters {
12    params => [qw/eval/], # TODO wrong!
13};
14
15for my $block (blocks) {
16    my $violations = fetch_violations($class_name, $block->input, $block->params);
17    is scalar @$violations, $block->failures, $block->dscr;
18}
19
20done_testing;
21
22__DATA__
23
24===
25--- dscr: Named magic variables, special case passes
26--- failures: 0
27--- params:
28--- input
29local ($_, $RS) = ();
30local $SIG{__DIE__} = sub { print "AAAAAAARRRRRGGGGHHHHH....\n"; };
31$_ = 1;
32$ARG = 1;
33@_ = (1, 2, 3);
34
35===
36--- dscr: Named magic variables, pass local
37--- failures: 0
38--- params:
39--- input
40local @+ = ();
41local $LAST_MATCH_END = ();
42local @- = ();
43local @LAST_MATCH_START = ();
44local @ARGV = ();
45local @F = ();
46local @INC = ();
47local @_ = ();
48local @ARG = ();
49local %OVERLOAD = ();
50local %+ = ();
51local %LAST_MATCH_END = ();
52local %- = ();
53local %LAST_MATCH_START = ();
54local %! = ();
55local %OS_ERROR = ();
56local %ERRNO = ();
57local %^H = ();
58local %INC = ();
59local %ENV = ();
60local %SIG = ();
61local $a = ();
62local $b = ();
63local $_ = ();
64local $ARG = ();
65local $& = ();
66local $MATCH = ();
67local $` = ();
68local $PREMATCH = ();
69local $' = ();
70local $POSTMATCH = ();
71local $+ = ();
72local $LAST_PAREN_MATCH = ();
73local $* = ();
74local $MULTILINE_MATCHING = ();
75local $. = ();
76local $INPUT_LINE_NUMBER = ();
77local $NR = ();
78local $/ = ();
79local $INPUT_RECORD_SEPARATOR = ();
80local $RS = ();
81local $| = ();
82local $OUTPUT_AUTO_FLUSH = ();
83local $, = ();
84local $OUTPUT_FIELD_SEPARATOR = ();
85local $OFS = ();
86local $\ = ();
87local $OUTPUT_RECORD_SEPARATOR = ();
88local $ORS = ();
89local $" = ();
90local $LIST_SEPARATOR = ();
91local $; = ();
92local $SUBSCRIPT_SEPARATOR = ();
93local $SUBSEP = ();
94local $# = ();
95local $OFMT = ();
96local $% = ();
97local $FORMAT_PAGE_NUMBER = ();
98local $= = ();
99local $FORMAT_LINES_PER_PAGE = ();
100local $- = ();
101local $FORMAT_LINES_LEFT = ();
102local $~ = ();
103local $FORMAT_NAME = ();
104local $^ = ();
105local $FORMAT_TOP_NAME = ();
106local $: = ();
107local $FORMAT_LINE_BREAK_CHARACTERS = ();
108local $? = ();
109local $CHILD_ERROR = ();
110local $^CHILD_ERROR_NATIVE = ();
111local $! = ();
112local $ERRNO = ();
113local $OS_ERROR = ();
114local $@ = ();
115local $EVAL_ERROR = ();
116local $$ = ();
117local $PROCESS_ID = ();
118local $PID = ();
119local $< = ();
120local $REAL_USER_ID = ();
121local $UID = ();
122local $> = ();
123local $EFFECTIVE_USER_ID = ();
124local $EUID = ();
125local $( = ();
126local $REAL_GROUP_ID = ();
127local $GID = ();
128local $) = ();
129local $EFFECTIVE_GROUP_ID = ();
130local $EGID = ();
131local $0 = ();
132local $PROGRAM_NAME = ();
133local $[ = ();
134local $] = ();
135local $^A = ();
136local $ACCUMULATOR = ();
137local $^C = ();
138local $COMPILING = ();
139local $^CHILD_ERROR_NATIVE = ();
140local $^D = ();
141local $DEBUGGING = ();
142local $^E = ();
143local $EXTENDED_OS_ERROR = ();
144local $^ENCODING = ();
145local $^F = ();
146local $SYSTEM_FD_MAX = ();
147local $^GLOBAL_PHASE = ();
148local $^H = ();
149local $^I = ();
150local $INPLACE_EDIT = ();
151local $^L = ();
152local $FORMAT_FORMFEED = ();
153local $^LAST_FH = ();
154local $^M = ();
155local $^MATCH = ();
156local $^N = ();
157local $LAST_SUBMATCH_RESULT = ();
158local $^O = ();
159local $OSNAME = ();
160local $^OPEN = ();
161local $^P = ();
162local $PERLDB = ();
163local $^PREMATCH = ();
164local $^POSTMATCH = ();
165local $^R = ();
166local $LAST_REGEXP_CODE_RESULT = ();
167local $^RE_DEBUG_FLAGS = ();
168local $^RE_TRIE_MAXBUF = ();
169local $^S = ();
170local $EXCEPTIONS_BEING_CAUGHT = ();
171local $^T = ();
172local $BASETIME = ();
173local $^TAINT = ();
174local $^UNICODE = ();
175local $^UTF8CACHE = ();
176local $^UTF8LOCALE = ();
177local $^V = ();
178local $PERL_VERSION = ();
179local $^W = ();
180local $WARNING = ();
181local $^WARNING_BITS = ();
182local $^WIDE_SYSTEM_CALLS = ();
183local $^WIN32_SLOPPY_STAT = ();
184local $^X = ();
185local $EXECUTABLE_NAME = ();
186local $ARGV = ();
187local *ARGV = ();
188local *_ = ();
189local *ARGVOUT = ();
190local *DATA = ();
191local *STDIN = ();
192local *STDOUT = ();
193local *STDERR = ();
194
195===
196--- dscr: Named magic variables, pass local()
197--- failures: 0
198--- params:
199--- input
200local (@+) = ();
201local ($LAST_MATCH_END) = ();
202local (@-) = ();
203local (@LAST_MATCH_START) = ();
204local (@ARGV) = ();
205local (@F) = ();
206local (@INC) = ();
207local (@_) = ();
208local (@ARG) = ();
209local (%OVERLOAD) = ();
210local (%+) = ();
211local (%LAST_MATCH_END) = ();
212local (%-) = ();
213local (%LAST_MATCH_START) = ();
214local (%!) = ();
215local (%OS_ERROR) = ();
216local (%ERRNO) = ();
217local (%^H) = ();
218local (%INC) = ();
219local (%ENV) = ();
220local (%SIG) = ();
221local ($a) = ();
222local ($b) = ();
223local ($_) = ();
224local ($ARG) = ();
225local ($&) = ();
226local ($MATCH) = ();
227local ($`) = ();
228local ($PREMATCH) = ();
229local ($') = ();
230local ($POSTMATCH) = ();
231local ($+) = ();
232local ($LAST_PAREN_MATCH) = ();
233local ($*) = ();
234local ($MULTILINE_MATCHING) = ();
235local ($.) = ();
236local ($INPUT_LINE_NUMBER) = ();
237local ($NR) = ();
238local ($/) = ();
239local ($INPUT_RECORD_SEPARATOR) = ();
240local ($RS) = ();
241local ($|) = ();
242local ($OUTPUT_AUTO_FLUSH) = ();
243local ($,) = ();
244local ($OUTPUT_FIELD_SEPARATOR) = ();
245local ($OFS) = ();
246local ($\) = ();
247local ($OUTPUT_RECORD_SEPARATOR) = ();
248local ($ORS) = ();
249local ($") = ();
250local ($LIST_SEPARATOR) = ();
251local ($;) = ();
252local ($SUBSCRIPT_SEPARATOR) = ();
253local ($SUBSEP) = ();
254local ($#) = ();
255local ($OFMT) = ();
256local ($%) = ();
257local ($FORMAT_PAGE_NUMBER) = ();
258local ($=) = ();
259local ($FORMAT_LINES_PER_PAGE) = ();
260local ($-) = ();
261local ($FORMAT_LINES_LEFT) = ();
262local ($~) = ();
263local ($FORMAT_NAME) = ();
264local ($^) = ();
265local ($FORMAT_TOP_NAME) = ();
266local ($:) = ();
267local ($FORMAT_LINE_BREAK_CHARACTERS) = ();
268local ($?) = ();
269local ($CHILD_ERROR) = ();
270local ($^CHILD_ERROR_NATIVE) = ();
271local ($!) = ();
272local ($ERRNO) = ();
273local ($OS_ERROR) = ();
274local ($@) = ();
275local ($EVAL_ERROR) = ();
276local ($$) = ();
277local ($PROCESS_ID) = ();
278local ($PID) = ();
279local ($<) = ();
280local ($REAL_USER_ID) = ();
281local ($UID) = ();
282local ($>) = ();
283local ($EFFECTIVE_USER_ID) = ();
284local ($EUID) = ();
285local ($() = ();
286local ($REAL_GROUP_ID) = ();
287local ($GID) = ();
288local ($)) = ();
289local ($EFFECTIVE_GROUP_ID) = ();
290local ($EGID) = ();
291local ($0) = ();
292local ($PROGRAM_NAME) = ();
293local ($[) = ();
294local ($]) = ();
295local ($^A) = ();
296local ($ACCUMULATOR) = ();
297local ($^C) = ();
298local ($COMPILING) = ();
299local ($^CHILD_ERROR_NATIVE) = ();
300local ($^D) = ();
301local ($DEBUGGING) = ();
302local ($^E) = ();
303local ($EXTENDED_OS_ERROR) = ();
304local ($^ENCODING) = ();
305local ($^F) = ();
306local ($SYSTEM_FD_MAX) = ();
307local ($^GLOBAL_PHASE) = ();
308local ($^H) = ();
309local ($^I) = ();
310local ($INPLACE_EDIT) = ();
311local ($^L) = ();
312local ($FORMAT_FORMFEED) = ();
313local ($^LAST_FH) = ();
314local ($^M) = ();
315local ($^MATCH) = ();
316local ($^N) = ();
317local ($LAST_SUBMATCH_RESULT) = ();
318local ($^O) = ();
319local ($OSNAME) = ();
320local ($^OPEN) = ();
321local ($^P) = ();
322local ($PERLDB) = ();
323local ($^PREMATCH) = ();
324local ($^POSTMATCH) = ();
325local ($^R) = ();
326local ($LAST_REGEXP_CODE_RESULT) = ();
327local ($^RE_DEBUG_FLAGS) = ();
328local ($^RE_TRIE_MAXBUF) = ();
329local ($^S) = ();
330local ($EXCEPTIONS_BEING_CAUGHT) = ();
331local ($^T) = ();
332local ($BASETIME) = ();
333local ($^TAINT) = ();
334local ($^UNICODE) = ();
335local ($^UTF8CACHE) = ();
336local ($^UTF8LOCALE) = ();
337local ($^V) = ();
338local ($PERL_VERSION) = ();
339local ($^W) = ();
340local ($WARNING) = ();
341local ($^WARNING_BITS) = ();
342local ($^WIDE_SYSTEM_CALLS) = ();
343local ($^WIN32_SLOPPY_STAT) = ();
344local ($^X) = ();
345local ($EXECUTABLE_NAME) = ();
346local ($ARGV) = ();
347local (*ARGV) = ();
348local (*_) = ();
349local (*ARGVOUT) = ();
350local (*DATA) = ();
351local (*STDIN) = ();
352local (*STDOUT) = ();
353local (*STDERR) = ();
354
355===
356--- dscr: Named magic variables, pass (local)
357--- failures: 0
358--- params:
359--- input
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) = ();
514
515===
516--- dscr: Named magic variables, pass = (local) =
517--- failures: 0
518--- params:
519--- input
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) = ();
674
675===
676--- dscr: Named magic variables, pass local dereferenced
677--- failures: 0
678--- params:
679--- input
680local $+[0] = 'bar';
681local $-[0] = 'bar';
682local $LAST_MATCH_START[0] = 'bar';
683local $ARGV[0] = 'bar';
684local $F[0] = 'bar';
685local $INC[0] = 'bar';
686local $_[0] = 'bar';
687local $ARG[0] = 'bar';
688local $OVERLOAD{foo} = 'bar';
689local $+{foo} = 'bar';
690local $LAST_MATCH_END{foo} = 'bar';
691local $-{foo} = 'bar';
692local $LAST_MATCH_START{foo} = 'bar';
693local $!{foo} = 'bar';
694local $OS_ERROR{foo} = 'bar';
695local $ERRNO{foo} = 'bar';
696local $^H{foo} = 'bar';
697local $INC{foo} = 'bar';
698local $ENV{foo} = 'bar';
699local $SIG{foo} = 'bar';
700
701===
702--- dscr: Named magic variables, pass non-local but in exception list
703--- failures: 0
704--- params: {require_localized_punctuation_vars =>  {allow => '@+ $LAST_MATCH_END @- @LAST_MATCH_START @ARGV @F @INC @_ @ARG %OVERLOAD %+ %LAST_MATCH_END %- %LAST_MATCH_START %! %OS_ERROR %ERRNO %^H %INC %ENV %SIG $a $b $_ $ARG $& $MATCH $` $PREMATCH $\' $POSTMATCH $+ $LAST_PAREN_MATCH $* $MULTILINE_MATCHING $. $INPUT_LINE_NUMBER $NR $/ $INPUT_RECORD_SEPARATOR $RS $| $OUTPUT_AUTO_FLUSH $, $OUTPUT_FIELD_SEPARATOR $OFS $\\ $OUTPUT_RECORD_SEPARATOR $ORS $" $LIST_SEPARATOR $; $SUBSCRIPT_SEPARATOR $SUBSEP $# $OFMT $% $FORMAT_PAGE_NUMBER $= $FORMAT_LINES_PER_PAGE $- $FORMAT_LINES_LEFT $~ $FORMAT_NAME $^ $FORMAT_TOP_NAME $: $FORMAT_LINE_BREAK_CHARACTERS $? $CHILD_ERROR $^CHILD_ERROR_NATIVE $! $ERRNO $OS_ERROR $@ $EVAL_ERROR $$ $PROCESS_ID $PID $< $REAL_USER_ID $UID $> $EFFECTIVE_USER_ID $EUID $( $REAL_GROUP_ID $GID $) $EFFECTIVE_GROUP_ID $EGID $0 $PROGRAM_NAME $[ $] $^A $ACCUMULATOR $^C $COMPILING $^CHILD_ERROR_NATIVE $^D $DEBUGGING $^E $EXTENDED_OS_ERROR $^ENCODING $^F $SYSTEM_FD_MAX $^GLOBAL_PHASE $^H $^I $INPLACE_EDIT $^L $FORMAT_FORMFEED $^LAST_FH $^M $^MATCH $^N $LAST_SUBMATCH_RESULT $^O $OSNAME $^OPEN $^P $PERLDB $^PREMATCH $^POSTMATCH $^R $LAST_REGEXP_CODE_RESULT $^RE_DEBUG_FLAGS $^RE_TRIE_MAXBUF $^S $EXCEPTIONS_BEING_CAUGHT $^T $BASETIME $^TAINT $^UNICODE $^UTF8CACHE $^UTF8LOCALE $^V $PERL_VERSION $^W $WARNING $^WARNING_BITS $^WIDE_SYSTEM_CALLS $^WIN32_SLOPPY_STAT $^X $EXECUTABLE_NAME $ARGV *ARGV *_ *ARGVOUT *DATA *STDIN *STDOUT *STDERR'}}
705--- input
706@+ = ();
707$LAST_MATCH_END = ();
708@- = ();
709@LAST_MATCH_START = ();
710@ARGV = ();
711@F = ();
712@INC = ();
713@ARG = ();
714%OVERLOAD = ();
715%+ = ();
716%LAST_MATCH_END = ();
717%- = ();
718%LAST_MATCH_START = ();
719%! = ();
720%OS_ERROR = ();
721%ERRNO = ();
722%^H = ();
723%INC = ();
724%ENV = ();
725%SIG = ();
726$a = ();
727$b = ();
728$& = ();
729$MATCH = ();
730$` = ();
731$PREMATCH = ();
732$' = ();
733$POSTMATCH = ();
734$+ = ();
735$LAST_PAREN_MATCH = ();
736$* = ();
737$MULTILINE_MATCHING = ();
738$. = ();
739$INPUT_LINE_NUMBER = ();
740$NR = ();
741$/ = ();
742$INPUT_RECORD_SEPARATOR = ();
743$RS = ();
744$| = ();
745$OUTPUT_AUTO_FLUSH = ();
746$, = ();
747$OUTPUT_FIELD_SEPARATOR = ();
748$OFS = ();
749$\ = ();
750$OUTPUT_RECORD_SEPARATOR = ();
751$ORS = ();
752$" = ();
753$LIST_SEPARATOR = ();
754$; = ();
755$SUBSCRIPT_SEPARATOR = ();
756$SUBSEP = ();
757$# = ();
758$OFMT = ();
759$% = ();
760$FORMAT_PAGE_NUMBER = ();
761$= = ();
762$FORMAT_LINES_PER_PAGE = ();
763$- = ();
764$FORMAT_LINES_LEFT = ();
765$~ = ();
766$FORMAT_NAME = ();
767$^ = ();
768$FORMAT_TOP_NAME = ();
769$: = ();
770$FORMAT_LINE_BREAK_CHARACTERS = ();
771$? = ();
772$CHILD_ERROR = ();
773$^CHILD_ERROR_NATIVE = ();
774$! = ();
775$ERRNO = ();
776$OS_ERROR = ();
777$@ = ();
778$EVAL_ERROR = ();
779$$ = ();
780$PROCESS_ID = ();
781$PID = ();
782$< = ();
783$REAL_USER_ID = ();
784$UID = ();
785$> = ();
786$EFFECTIVE_USER_ID = ();
787$EUID = ();
788$( = ();
789$REAL_GROUP_ID = ();
790$GID = ();
791$) = ();
792$EFFECTIVE_GROUP_ID = ();
793$EGID = ();
794$0 = ();
795$PROGRAM_NAME = ();
796$[ = ();
797$] = ();
798$^A = ();
799$ACCUMULATOR = ();
800$^C = ();
801$COMPILING = ();
802$^CHILD_ERROR_NATIVE = ();
803$^D = ();
804$DEBUGGING = ();
805$^E = ();
806$EXTENDED_OS_ERROR = ();
807$^ENCODING = ();
808$^F = ();
809$SYSTEM_FD_MAX = ();
810$^GLOBAL_PHASE = ();
811$^H = ();
812$^I = ();
813$INPLACE_EDIT = ();
814$^L = ();
815$FORMAT_FORMFEED = ();
816$^LAST_FH = ();
817$^M = ();
818$^MATCH = ();
819$^N = ();
820$LAST_SUBMATCH_RESULT = ();
821$^O = ();
822$OSNAME = ();
823$^OPEN = ();
824$^P = ();
825$PERLDB = ();
826$^PREMATCH = ();
827$^POSTMATCH = ();
828$^R = ();
829$LAST_REGEXP_CODE_RESULT = ();
830$^RE_DEBUG_FLAGS = ();
831$^RE_TRIE_MAXBUF = ();
832$^S = ();
833$EXCEPTIONS_BEING_CAUGHT = ();
834$^T = ();
835$BASETIME = ();
836$^TAINT = ();
837$^UNICODE = ();
838$^UTF8CACHE = ();
839$^UTF8LOCALE = ();
840$^V = ();
841$PERL_VERSION = ();
842$^W = ();
843$WARNING = ();
844$^WARNING_BITS = ();
845$^WIDE_SYSTEM_CALLS = ();
846$^WIN32_SLOPPY_STAT = ();
847$^X = ();
848$EXECUTABLE_NAME = ();
849$ARGV = ();
850*ARGV = ();
851*_ = ();
852*ARGVOUT = ();
853*DATA = ();
854*STDIN = ();
855*STDOUT = ();
856*STDERR = ();
857
858===
859--- dscr: Named magic variables, fail non-local, non-carats
860--- failures: 114
861--- params:
862--- input
863@+ = ();
864$LAST_MATCH_END = ();
865@- = ();
866@LAST_MATCH_START = ();
867@ARGV = ();
868@F = ();
869@INC = ();
870@ARG = ();
871%OVERLOAD = ();
872%+ = ();
873%LAST_MATCH_END = ();
874%- = ();
875%LAST_MATCH_START = ();
876%! = ();
877%OS_ERROR = ();
878%ERRNO = ();
879%INC = ();
880%ENV = ();
881%SIG = ();
882$a = ();
883$b = ();
884$& = ();
885$MATCH = ();
886$` = ();
887$PREMATCH = ();
888$' = ();
889$POSTMATCH = ();
890$+ = ();
891$LAST_PAREN_MATCH = ();
892$* = ();
893$MULTILINE_MATCHING = ();
894$. = ();
895$INPUT_LINE_NUMBER = ();
896$NR = ();
897$/ = ();
898$INPUT_RECORD_SEPARATOR = ();
899$RS = ();
900$| = ();
901$OUTPUT_AUTO_FLUSH = ();
902$, = ();
903$OUTPUT_FIELD_SEPARATOR = ();
904$OFS = ();
905$\ = ();
906$OUTPUT_RECORD_SEPARATOR = ();
907$ORS = ();
908$" = ();
909$LIST_SEPARATOR = ();
910$; = ();
911$SUBSCRIPT_SEPARATOR = ();
912$SUBSEP = ();
913$# = ();
914$OFMT = ();
915$% = ();
916$FORMAT_PAGE_NUMBER = ();
917$= = ();
918$FORMAT_LINES_PER_PAGE = ();
919$- = ();
920$FORMAT_LINES_LEFT = ();
921$~ = ();
922$FORMAT_NAME = ();
923$^ = ();
924$FORMAT_TOP_NAME = ();
925$: = ();
926$FORMAT_LINE_BREAK_CHARACTERS = ();
927$? = ();
928$CHILD_ERROR = ();
929$! = ();
930$ERRNO = ();
931$OS_ERROR = ();
932$@ = ();
933$EVAL_ERROR = ();
934$$ = ();
935$PROCESS_ID = ();
936$PID = ();
937$< = ();
938$REAL_USER_ID = ();
939$UID = ();
940$> = ();
941$EFFECTIVE_USER_ID = ();
942$EUID = ();
943$( = ();
944$REAL_GROUP_ID = ();
945$GID = ();
946$) = ();
947$EFFECTIVE_GROUP_ID = ();
948$EGID = ();
949$0 = ();
950$PROGRAM_NAME = ();
951$[ = ();
952$] = ();
953$ACCUMULATOR = ();
954$COMPILING = ();
955$DEBUGGING = ();
956$EXTENDED_OS_ERROR = ();
957$SYSTEM_FD_MAX = ();
958$INPLACE_EDIT = ();
959$FORMAT_FORMFEED = ();
960$LAST_SUBMATCH_RESULT = ();
961$OSNAME = ();
962$PERLDB = ();
963$LAST_REGEXP_CODE_RESULT = ();
964$EXCEPTIONS_BEING_CAUGHT = ();
965$BASETIME = ();
966$PERL_VERSION = ();
967$WARNING = ();
968$EXECUTABLE_NAME = ();
969$ARGV = ();
970*ARGV = ();
971*_ = ();
972*ARGVOUT = ();
973*DATA = ();
974*STDIN = ();
975*STDOUT = ();
976*STDERR = ();
977
978===
979--- dscr: Named magic variables, fail non-local, carats
980--- failures: 37
981--- params:
982--- input
983%^H = ();
984$^CHILD_ERROR_NATIVE = ();
985$^A = ();
986$^C = ();
987$^CHILD_ERROR_NATIVE = ();
988$^D = ();
989$^E = ();
990$^ENCODING = ();
991$^F = ();
992$^GLOBAL_PHASE = ();
993$^H = ();
994$^I = ();
995$^L = ();
996$^LAST_FH = ();
997$^M = ();
998$^MATCH = ();
999$^N = ();
1000$^O = ();
1001$^OPEN = ();
1002$^P = ();
1003$^PREMATCH = ();
1004$^POSTMATCH = ();
1005$^R = ();
1006$^RE_DEBUG_FLAGS = ();
1007$^RE_TRIE_MAXBUF = ();
1008$^S = ();
1009$^T = ();
1010$^TAINT = ();
1011$^UNICODE = ();
1012$^UTF8CACHE = ();
1013$^UTF8LOCALE = ();
1014$^V = ();
1015$^W = ();
1016$^WARNING_BITS = ();
1017$^WIDE_SYSTEM_CALLS = ();
1018$^WIN32_SLOPPY_STAT = ();
1019$^X = ();
1020
1021===
1022--- dscr: Named magic variables, fail non-local, carats, no space
1023--- failures: 37
1024--- params:
1025--- input
1026%^H= ();
1027$^CHILD_ERROR_NATIVE= ();
1028$^A= ();
1029$^C= ();
1030$^CHILD_ERROR_NATIVE= ();
1031$^D= ();
1032$^E= ();
1033$^ENCODING= ();
1034$^F= ();
1035$^GLOBAL_PHASE= ();
1036$^H= ();
1037$^I= ();
1038$^L= ();
1039$^LAST_FH= ();
1040$^M= ();
1041$^MATCH= ();
1042$^N= ();
1043$^O= ();
1044$^OPEN= ();
1045$^P= ();
1046$^PREMATCH= ();
1047$^POSTMATCH= ();
1048$^R= ();
1049$^RE_DEBUG_FLAGS= ();
1050$^RE_TRIE_MAXBUF= ();
1051$^S= ();
1052$^T= ();
1053$^TAINT= ();
1054$^UNICODE= ();
1055$^UTF8CACHE= ();
1056$^UTF8LOCALE= ();
1057$^V= ();
1058$^W= ();
1059$^WARNING_BITS= ();
1060$^WIDE_SYSTEM_CALLS= ();
1061$^WIN32_SLOPPY_STAT= ();
1062$^X= ();
1063
1064===
1065--- dscr: Named magic variables, fail = (non-local) =
1066--- failures: 151
1067--- params:
1068--- input
1069@foo = (@+) = ();
1070@foo = ($LAST_MATCH_END) = ();
1071@foo = (@-) = ();
1072@foo = (@LAST_MATCH_START) = ();
1073@foo = (@ARGV) = ();
1074@foo = (@F) = ();
1075@foo = (@INC) = ();
1076@foo = (@ARG) = ();
1077@foo = (%OVERLOAD) = ();
1078@foo = (%+) = ();
1079@foo = (%LAST_MATCH_END) = ();
1080@foo = (%-) = ();
1081@foo = (%LAST_MATCH_START) = ();
1082@foo = (%!) = ();
1083@foo = (%OS_ERROR) = ();
1084@foo = (%ERRNO) = ();
1085@foo = (%^H) = ();
1086@foo = (%INC) = ();
1087@foo = (%ENV) = ();
1088@foo = (%SIG) = ();
1089@foo = ($a) = ();
1090@foo = ($b) = ();
1091@foo = ($&) = ();
1092@foo = ($MATCH) = ();
1093@foo = ($`) = ();
1094@foo = ($PREMATCH) = ();
1095@foo = ($') = ();
1096@foo = ($POSTMATCH) = ();
1097@foo = ($+) = ();
1098@foo = ($LAST_PAREN_MATCH) = ();
1099@foo = ($*) = ();
1100@foo = ($MULTILINE_MATCHING) = ();
1101@foo = ($.) = ();
1102@foo = ($INPUT_LINE_NUMBER) = ();
1103@foo = ($NR) = ();
1104@foo = ($/) = ();
1105@foo = ($INPUT_RECORD_SEPARATOR) = ();
1106@foo = ($RS) = ();
1107@foo = ($|) = ();
1108@foo = ($OUTPUT_AUTO_FLUSH) = ();
1109@foo = ($,) = ();
1110@foo = ($OUTPUT_FIELD_SEPARATOR) = ();
1111@foo = ($OFS) = ();
1112@foo = ($\) = ();
1113@foo = ($OUTPUT_RECORD_SEPARATOR) = ();
1114@foo = ($ORS) = ();
1115@foo = ($") = ();
1116@foo = ($LIST_SEPARATOR) = ();
1117@foo = ($;) = ();
1118@foo = ($SUBSCRIPT_SEPARATOR) = ();
1119@foo = ($SUBSEP) = ();
1120@foo = ($#) = ();
1121@foo = ($OFMT) = ();
1122@foo = ($%) = ();
1123@foo = ($FORMAT_PAGE_NUMBER) = ();
1124@foo = ($=) = ();
1125@foo = ($FORMAT_LINES_PER_PAGE) = ();
1126@foo = ($-) = ();
1127@foo = ($FORMAT_LINES_LEFT) = ();
1128@foo = ($~) = ();
1129@foo = ($FORMAT_NAME) = ();
1130@foo = ($^) = ();
1131@foo = ($FORMAT_TOP_NAME) = ();
1132@foo = ($:) = ();
1133@foo = ($FORMAT_LINE_BREAK_CHARACTERS) = ();
1134@foo = ($?) = ();
1135@foo = ($CHILD_ERROR) = ();
1136@foo = ($^CHILD_ERROR_NATIVE) = ();
1137@foo = ($!) = ();
1138@foo = ($ERRNO) = ();
1139@foo = ($OS_ERROR) = ();
1140@foo = ($@) = ();
1141@foo = ($EVAL_ERROR) = ();
1142@foo = ($$) = ();
1143@foo = ($PROCESS_ID) = ();
1144@foo = ($PID) = ();
1145@foo = ($<) = ();
1146@foo = ($REAL_USER_ID) = ();
1147@foo = ($UID) = ();
1148@foo = ($>) = ();
1149@foo = ($EFFECTIVE_USER_ID) = ();
1150@foo = ($EUID) = ();
1151@foo = ($() = ();
1152@foo = ($REAL_GROUP_ID) = ();
1153@foo = ($GID) = ();
1154@foo = ($)) = ();
1155@foo = ($EFFECTIVE_GROUP_ID) = ();
1156@foo = ($EGID) = ();
1157@foo = ($0) = ();
1158@foo = ($PROGRAM_NAME) = ();
1159@foo = ($[) = ();
1160@foo = ($]) = ();
1161@foo = ($^A) = ();
1162@foo = ($ACCUMULATOR) = ();
1163@foo = ($^C) = ();
1164@foo = ($COMPILING) = ();
1165@foo = ($^CHILD_ERROR_NATIVE) = ();
1166@foo = ($^D) = ();
1167@foo = ($DEBUGGING) = ();
1168@foo = ($^E) = ();
1169@foo = ($EXTENDED_OS_ERROR) = ();
1170@foo = ($^ENCODING) = ();
1171@foo = ($^F) = ();
1172@foo = ($SYSTEM_FD_MAX) = ();
1173@foo = ($^GLOBAL_PHASE) = ();
1174@foo = ($^H) = ();
1175@foo = ($^I) = ();
1176@foo = ($INPLACE_EDIT) = ();
1177@foo = ($^L) = ();
1178@foo = ($FORMAT_FORMFEED) = ();
1179@foo = ($^LAST_FH) = ();
1180@foo = ($^M) = ();
1181@foo = ($^MATCH) = ();
1182@foo = ($^N) = ();
1183@foo = ($LAST_SUBMATCH_RESULT) = ();
1184@foo = ($^O) = ();
1185@foo = ($OSNAME) = ();
1186@foo = ($^OPEN) = ();
1187@foo = ($^P) = ();
1188@foo = ($PERLDB) = ();
1189@foo = ($^PREMATCH) = ();
1190@foo = ($^POSTMATCH) = ();
1191@foo = ($^R) = ();
1192@foo = ($LAST_REGEXP_CODE_RESULT) = ();
1193@foo = ($^RE_DEBUG_FLAGS) = ();
1194@foo = ($^RE_TRIE_MAXBUF) = ();
1195@foo = ($^S) = ();
1196@foo = ($EXCEPTIONS_BEING_CAUGHT) = ();
1197@foo = ($^T) = ();
1198@foo = ($BASETIME) = ();
1199@foo = ($^TAINT) = ();
1200@foo = ($^UNICODE) = ();
1201@foo = ($^UTF8CACHE) = ();
1202@foo = ($^UTF8LOCALE) = ();
1203@foo = ($^V) = ();
1204@foo = ($PERL_VERSION) = ();
1205@foo = ($^W) = ();
1206@foo = ($WARNING) = ();
1207@foo = ($^WARNING_BITS) = ();
1208@foo = ($^WIDE_SYSTEM_CALLS) = ();
1209@foo = ($^WIN32_SLOPPY_STAT) = ();
1210@foo = ($^X) = ();
1211@foo = ($EXECUTABLE_NAME) = ();
1212@foo = ($ARGV) = ();
1213@foo = (*ARGV) = ();
1214@foo = (*_) = ();
1215@foo = (*ARGVOUT) = ();
1216@foo = (*DATA) = ();
1217@foo = (*STDIN) = ();
1218@foo = (*STDOUT) = ();
1219@foo = (*STDERR) = ();
1220
1221===
1222--- dscr: Named magic variables, fail (non-local)
1223--- failures: 151
1224--- params:
1225--- input
1226(@+) = ();
1227($LAST_MATCH_END) = ();
1228(@-) = ();
1229(@LAST_MATCH_START) = ();
1230(@ARGV) = ();
1231(@F) = ();
1232(@INC) = ();
1233(@ARG) = ();
1234(%OVERLOAD) = ();
1235(%+) = ();
1236(%LAST_MATCH_END) = ();
1237(%-) = ();
1238(%LAST_MATCH_START) = ();
1239(%!) = ();
1240(%OS_ERROR) = ();
1241(%ERRNO) = ();
1242(%^H) = ();
1243(%INC) = ();
1244(%ENV) = ();
1245(%SIG) = ();
1246($a) = ();
1247($b) = ();
1248($&) = ();
1249($MATCH) = ();
1250($`) = ();
1251($PREMATCH) = ();
1252($') = ();
1253($POSTMATCH) = ();
1254($+) = ();
1255($LAST_PAREN_MATCH) = ();
1256($*) = ();
1257($MULTILINE_MATCHING) = ();
1258($.) = ();
1259($INPUT_LINE_NUMBER) = ();
1260($NR) = ();
1261($/) = ();
1262($INPUT_RECORD_SEPARATOR) = ();
1263($RS) = ();
1264($|) = ();
1265($OUTPUT_AUTO_FLUSH) = ();
1266($,) = ();
1267($OUTPUT_FIELD_SEPARATOR) = ();
1268($OFS) = ();
1269($\) = ();
1270($OUTPUT_RECORD_SEPARATOR) = ();
1271($ORS) = ();
1272($") = ();
1273($LIST_SEPARATOR) = ();
1274($;) = ();
1275($SUBSCRIPT_SEPARATOR) = ();
1276($SUBSEP) = ();
1277($#) = ();
1278($OFMT) = ();
1279($%) = ();
1280($FORMAT_PAGE_NUMBER) = ();
1281($=) = ();
1282($FORMAT_LINES_PER_PAGE) = ();
1283($-) = ();
1284($FORMAT_LINES_LEFT) = ();
1285($~) = ();
1286($FORMAT_NAME) = ();
1287($^) = ();
1288($FORMAT_TOP_NAME) = ();
1289($:) = ();
1290($FORMAT_LINE_BREAK_CHARACTERS) = ();
1291($?) = ();
1292($CHILD_ERROR) = ();
1293($^CHILD_ERROR_NATIVE) = ();
1294($!) = ();
1295($ERRNO) = ();
1296($OS_ERROR) = ();
1297($@) = ();
1298($EVAL_ERROR) = ();
1299($$) = ();
1300($PROCESS_ID) = ();
1301($PID) = ();
1302($<) = ();
1303($REAL_USER_ID) = ();
1304($UID) = ();
1305($>) = ();
1306($EFFECTIVE_USER_ID) = ();
1307($EUID) = ();
1308($() = ();
1309($REAL_GROUP_ID) = ();
1310($GID) = ();
1311($)) = ();
1312($EFFECTIVE_GROUP_ID) = ();
1313($EGID) = ();
1314($0) = ();
1315($PROGRAM_NAME) = ();
1316($[) = ();
1317($]) = ();
1318($^A) = ();
1319($ACCUMULATOR) = ();
1320($^C) = ();
1321($COMPILING) = ();
1322($^CHILD_ERROR_NATIVE) = ();
1323($^D) = ();
1324($DEBUGGING) = ();
1325($^E) = ();
1326($EXTENDED_OS_ERROR) = ();
1327($^ENCODING) = ();
1328($^F) = ();
1329($SYSTEM_FD_MAX) = ();
1330($^GLOBAL_PHASE) = ();
1331($^H) = ();
1332($^I) = ();
1333($INPLACE_EDIT) = ();
1334($^L) = ();
1335($FORMAT_FORMFEED) = ();
1336($^LAST_FH) = ();
1337($^M) = ();
1338($^MATCH) = ();
1339($^N) = ();
1340($LAST_SUBMATCH_RESULT) = ();
1341($^O) = ();
1342($OSNAME) = ();
1343($^OPEN) = ();
1344($^P) = ();
1345($PERLDB) = ();
1346($^PREMATCH) = ();
1347($^POSTMATCH) = ();
1348($^R) = ();
1349($LAST_REGEXP_CODE_RESULT) = ();
1350($^RE_DEBUG_FLAGS) = ();
1351($^RE_TRIE_MAXBUF) = ();
1352($^S) = ();
1353($EXCEPTIONS_BEING_CAUGHT) = ();
1354($^T) = ();
1355($BASETIME) = ();
1356($^TAINT) = ();
1357($^UNICODE) = ();
1358($^UTF8CACHE) = ();
1359($^UTF8LOCALE) = ();
1360($^V) = ();
1361($PERL_VERSION) = ();
1362($^W) = ();
1363($WARNING) = ();
1364($^WARNING_BITS) = ();
1365($^WIDE_SYSTEM_CALLS) = ();
1366($^WIN32_SLOPPY_STAT) = ();
1367($^X) = ();
1368($EXECUTABLE_NAME) = ();
1369($ARGV) = ();
1370(*ARGV) = ();
1371(*_) = ();
1372(*ARGVOUT) = ();
1373(*DATA) = ();
1374(*STDIN) = ();
1375(*STDOUT) = ();
1376(*STDERR) = ();
1377
1378===
1379--- dscr: Named magic variables, fail non-local dereferenced
1380--- failures: 19
1381--- params:
1382--- input
1383$+[0] = 'bar';
1384$-[0] = 'bar';
1385$LAST_MATCH_START[0] = 'bar';
1386$ARGV[0] = 'bar';
1387$F[0] = 'bar';
1388$INC[0] = 'bar';
1389$ARG[0] = 'bar';
1390$OVERLOAD{foo} = 'bar';
1391$+{foo} = 'bar';
1392$LAST_MATCH_END{foo} = 'bar';
1393$-{foo} = 'bar';
1394$LAST_MATCH_START{foo} = 'bar';
1395$!{foo} = 'bar';
1396$OS_ERROR{foo} = 'bar';
1397$ERRNO{foo} = 'bar';
1398$^H{foo} = 'bar';
1399$INC{foo} = 'bar';
1400$ENV{foo} = 'bar';
1401$SIG{foo} = 'bar';
1402
1403===
1404--- dscr: Allowing a variable with a particular sigil doesn't allow other variables with the same name but different sigils
1405--- failures: 1
1406--- params: {require_localized_punctuation_vars => {allow => '$ARGV'}}
1407--- input
1408@ARGV = (1, 2, 3);
1409
1410===
1411--- dscr: Allow "my" as well, RT #33937
1412--- failures: 0
1413--- params:
1414--- input
1415for my $entry (
1416   sort {
1417       my @a = split m{,}xms, $a;
1418       my @b = split m{,}xms, $b;
1419       $a[0] cmp $b[0] || $a[1] <=> $b[1]
1420   } qw( b,6 c,3 )
1421   )
1422{
1423   print;
1424}
1425
1426