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