=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== libfunction-parameters-perl-2.001003/t/defaults.t-41- libfunction-parameters-perl-2.001003/t/defaults.t:42:is eval('fun ($x, $y = $powersauce) {}'), undef; libfunction-parameters-perl-2.001003/t/defaults.t-43-like $@, qr/^Global symbol.*explicit package name/; ############################################## libfunction-parameters-perl-2.001003/t/defaults.t-99- libfunction-parameters-perl-2.001003/t/defaults.t:100:is eval('fun ($x, %y = ()) {}'), undef; libfunction-parameters-perl-2.001003/t/defaults.t-101-like $@, qr/default value/; libfunction-parameters-perl-2.001003/t/defaults.t-102- libfunction-parameters-perl-2.001003/t/defaults.t:103:is eval('nofun ($x = 42) {}'), undef; libfunction-parameters-perl-2.001003/t/defaults.t-104-like $@, qr/nofun.*default argument/; ############################################## libfunction-parameters-perl-2.001003/t/defaults.t-121- libfunction-parameters-perl-2.001003/t/defaults.t:122: is eval('fun ($QQQ = $QQQ) {}; 1'), undef; libfunction-parameters-perl-2.001003/t/defaults.t-123- like $@, qr/Global symbol.*\$QQQ.*explicit package name/; ############################################## libfunction-parameters-perl-2.001003/t/precedence.t-20- libfunction-parameters-perl-2.001003/t/precedence.t:21:is eval('my $x = fun forbidden() {}'), undef, "statements aren't expressions"; libfunction-parameters-perl-2.001003/t/precedence.t-22-like $@, qr/expect.*parameter list/; libfunction-parameters-perl-2.001003/t/precedence.t-23- libfunction-parameters-perl-2.001003/t/precedence.t:24:is eval('my $x = { fun forbidden() {} }'), undef, "statements aren't expressions 2 - electric boogaloo"; libfunction-parameters-perl-2.001003/t/precedence.t-25-like $@, qr/expect.*parameter list/; ############################################## libfunction-parameters-perl-2.001003/t/invocant.t-137- libfunction-parameters-perl-2.001003/t/invocant.t:138:is eval('method2 ($t1, $t2:) { $self1 }'), undef; libfunction-parameters-perl-2.001003/t/invocant.t-139-like $@, qr/^Global symbol "\$self1" requires explicit package name/; libfunction-parameters-perl-2.001003/t/invocant.t-140- libfunction-parameters-perl-2.001003/t/invocant.t:141:is eval('method2 ($self1) {}'), undef; libfunction-parameters-perl-2.001003/t/invocant.t-142-like $@, qr/\$self1 can't appear twice in the same parameter list/; libfunction-parameters-perl-2.001003/t/invocant.t-143- libfunction-parameters-perl-2.001003/t/invocant.t:144:is eval('method2 ($x, $self2) {}'), undef; libfunction-parameters-perl-2.001003/t/invocant.t-145-like $@, qr/\$self2 can't appear twice in the same parameter list/; libfunction-parameters-perl-2.001003/t/invocant.t-146- libfunction-parameters-perl-2.001003/t/invocant.t:147:is eval('method2 m2_z($self: $x) {} 1'), undef; libfunction-parameters-perl-2.001003/t/invocant.t-148-like $@, qr/^\QIn method2 m2_z: number of invocants in parameter list (1) differs from number of invocants in keyword definition (2)/; ############################################## libfunction-parameters-perl-2.001003/t/invocant.t-150- libfunction-parameters-perl-2.001003/t/invocant.t:151:is eval('method2 m2_z($orig, $self, $x: $y) {} 1'), undef; libfunction-parameters-perl-2.001003/t/invocant.t-152-like $@, qr/^\QIn method2 m2_z: number of invocants in parameter list (3) differs from number of invocants in keyword definition (2)/; ############################################## libfunction-parameters-perl-2.001003/t/lexical.t-47- libfunction-parameters-perl-2.001003/t/lexical.t:48: is eval('fun foo($x) { $x; } 1'), undef; libfunction-parameters-perl-2.001003/t/lexical.t-49- like $@, qr/syntax error/; ############################################## libfunction-parameters-perl-2.001003/t/lexical.t-59- is proc () { 'bla3' }->(), 'bla3'; libfunction-parameters-perl-2.001003/t/lexical.t:60: is eval('fun foo($x) { $x; } 1'), undef; libfunction-parameters-perl-2.001003/t/lexical.t-61- like $@, qr/syntax error/; ############################################## libfunction-parameters-perl-2.001003/t/foreign/perl/signatures.t-240-is eval("t023()"), "azy"; libfunction-parameters-perl-2.001003/t/foreign/perl/signatures.t:241:is eval("t023(sub (@) { \"x\".\$_[0].\"x\" })"), "xaxy"; libfunction-parameters-perl-2.001003/t/foreign/perl/signatures.t:242:is eval("t023(sub (@) { \"x\".\$_[0].\"x\" }, 789)"), undef; libfunction-parameters-perl-2.001003/t/foreign/perl/signatures.t-243-like $@, qr/\AToo many arguments for /; ############################################## libfunction-parameters-perl-2.001003/t/foreign/perl/signatures.t-1158-is prototype($t103), undef; libfunction-parameters-perl-2.001003/t/foreign/perl/signatures.t:1159:is eval("\$t103->()"), undef; libfunction-parameters-perl-2.001003/t/foreign/perl/signatures.t-1160-like $@, qr/\AToo few arguments for /; libfunction-parameters-perl-2.001003/t/foreign/perl/signatures.t:1161:is eval("\$t103->(0)"), "z"; libfunction-parameters-perl-2.001003/t/foreign/perl/signatures.t:1162:is eval("\$t103->(456)"), 456; libfunction-parameters-perl-2.001003/t/foreign/perl/signatures.t:1163:is eval("\$t103->(456, 789)"), undef; libfunction-parameters-perl-2.001003/t/foreign/perl/signatures.t-1164-like $@, qr/\AToo many arguments for /; libfunction-parameters-perl-2.001003/t/foreign/perl/signatures.t:1165:is eval("\$t103->(456, 789, 987)"), undef; libfunction-parameters-perl-2.001003/t/foreign/perl/signatures.t-1166-like $@, qr/\AToo many arguments for /; ############################################## libfunction-parameters-perl-2.001003/t/foreign/perl/signatures.t-1170-is prototype($t118), "\$"; libfunction-parameters-perl-2.001003/t/foreign/perl/signatures.t:1171:is eval("\$t118->()"), undef; libfunction-parameters-perl-2.001003/t/foreign/perl/signatures.t-1172-like $@, qr/\AToo few arguments for /; libfunction-parameters-perl-2.001003/t/foreign/perl/signatures.t:1173:is eval("\$t118->(0)"), "z"; libfunction-parameters-perl-2.001003/t/foreign/perl/signatures.t:1174:is eval("\$t118->(456)"), 456; libfunction-parameters-perl-2.001003/t/foreign/perl/signatures.t:1175:is eval("\$t118->(456, 789)"), undef; libfunction-parameters-perl-2.001003/t/foreign/perl/signatures.t-1176-like $@, qr/\AToo many arguments for /; libfunction-parameters-perl-2.001003/t/foreign/perl/signatures.t:1177:is eval("\$t118->(456, 789, 987)"), undef; libfunction-parameters-perl-2.001003/t/foreign/perl/signatures.t-1178-like $@, qr/\AToo many arguments for /; ############################################## libfunction-parameters-perl-2.001003/t/foreign/perl/signatures.t-1183-is eval("t033()"), "azy"; libfunction-parameters-perl-2.001003/t/foreign/perl/signatures.t:1184:is eval("t033(sub (@) { \"x\".\$_[0].\"x\" })"), "xaxy"; libfunction-parameters-perl-2.001003/t/foreign/perl/signatures.t:1185:is eval("t033(sub (@) { \"x\".\$_[0].\"x\" }, 789)"), undef; libfunction-parameters-perl-2.001003/t/foreign/perl/signatures.t-1186-like $@, qr/\AToo many arguments for /; ############################################## libfunction-parameters-perl-2.001003/t/foreign/perl/signatures.t-1191-is eval("t133()"), "222z/az"; libfunction-parameters-perl-2.001003/t/foreign/perl/signatures.t:1192:is eval("t133(sub (@) { \"x\".(\$_[0] // \"u\").\"x\" })"), "xux/xax"; libfunction-parameters-perl-2.001003/t/foreign/perl/signatures.t:1193:is eval("t133(sub (@) { \"x\".(\$_[0] // \"u\").\"x\" }, 789)"), undef; libfunction-parameters-perl-2.001003/t/foreign/perl/signatures.t-1194-like $@, qr/\AToo many arguments for /; ############################################## libfunction-parameters-perl-2.001003/t/foreign/perl/signatures.t-1201-is eval("t134()"), "apz/bqz"; libfunction-parameters-perl-2.001003/t/foreign/perl/signatures.t:1202:is eval("t134(sub (@) { \"x\".(\$_[1] // sub (@) {\$_[0]})->(\$_[0]).\"x\" })"), libfunction-parameters-perl-2.001003/t/foreign/perl/signatures.t-1203- "xax/xbqx"; libfunction-parameters-perl-2.001003/t/foreign/perl/signatures.t:1204:is eval("t134(sub (@) { \"x\".(\$_[1] // sub (@) {\$_[0]})->(\$_[0]).\"x\" }, 789)"), libfunction-parameters-perl-2.001003/t/foreign/perl/signatures.t-1205- undef; ############################################## libfunction-parameters-perl-2.001003/t/foreign/perl/signatures.t-1213-is eval("t135()"), "apz/bqz"; libfunction-parameters-perl-2.001003/t/foreign/perl/signatures.t:1214:is eval("t135(sub (@) { \"x\".(\$_[1] // sub (@) {\$_[0]})->(\$_[0]).\"x\" })"), libfunction-parameters-perl-2.001003/t/foreign/perl/signatures.t-1215- "xax/xbqx"; libfunction-parameters-perl-2.001003/t/foreign/perl/signatures.t:1216:is eval("t135(sub (@) { \"x\".(\$_[1] // sub (@) {\$_[0]})->(\$_[0]).\"x\" }, 789)"), libfunction-parameters-perl-2.001003/t/foreign/perl/signatures.t-1217- undef; ############################################## libfunction-parameters-perl-2.001003/t/foreign/perl/signatures.t-1227-is eval("t132()"), "apz222p/bqzuq"; libfunction-parameters-perl-2.001003/t/foreign/perl/signatures.t:1228:is eval("t132(sub (@) { \"x\".(\$_[1] // sub (@) {\$_[0]})->(\$_[0]).\"x\" })"), libfunction-parameters-perl-2.001003/t/foreign/perl/signatures.t-1229- "xax/xbqx"; libfunction-parameters-perl-2.001003/t/foreign/perl/signatures.t:1230:is eval("t132(sub (@) { \"x\".(\$_[1] // sub (@) {\$_[0]})->(\$_[0]).\"x\" }, 789)"), libfunction-parameters-perl-2.001003/t/foreign/perl/signatures.t-1231- undef; ############################################## libfunction-parameters-perl-2.001003/t/unicode2.t-26- libfunction-parameters-perl-2.001003/t/unicode2.t:27:is eval('pŕöç ::hi($z){} 1'), 1; libfunction-parameters-perl-2.001003/t/unicode2.t-28-is hi(42), undef; ############################################## libfunction-parameters-perl-2.001003/t/unicode2.t-35- libfunction-parameters-perl-2.001003/t/unicode2.t:36:is eval('pŕöç m123($z){} 1'), 1; libfunction-parameters-perl-2.001003/t/unicode2.t-37-is m123(42), undef; libfunction-parameters-perl-2.001003/t/unicode2.t-38- libfunction-parameters-perl-2.001003/t/unicode2.t:39:is eval('pŕöç ::m234($z){} 1'), 1; libfunction-parameters-perl-2.001003/t/unicode2.t-40-is m234(42), undef;