=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== libmason-perl-2.24/lib/Mason/App.pm-23- if ($help) { libmason-perl-2.24/lib/Mason/App.pm:24: system("perldoc $0"); libmason-perl-2.24/lib/Mason/App.pm-25- exit; ############################################## libmason-perl-2.24/lib/Mason/Compilation.pm-354- if ( $self->valid_flags_hash->{$flag} ) { libmason-perl-2.24/lib/Mason/Compilation.pm:355: $self->{blocks}->{flags}->{$flag} = eval($value); libmason-perl-2.24/lib/Mason/Compilation.pm-356- die $@ if $@; ############################################## libmason-perl-2.24/lib/Mason/Interp.pm-440- ($code) = ( $code =~ /^(.*)/s ) if taint_is_on(); libmason-perl-2.24/lib/Mason/Interp.pm:441: eval($code); libmason-perl-2.24/lib/Mason/Interp.pm-442- die $@ if $@; ############################################## libmason-perl-2.24/t/mason-app.t-12-# Ugly string escaping for Windows libmason-perl-2.24/t/mason-app.t:13:my $output = `$^X bin/mason.pl $comp_file --data-dir $tempdir/data --args "{\\"d\\":\\"4\\"}"`; libmason-perl-2.24/t/mason-app.t-14-is( $output, "d * 2 = 8\n", 'correct output' ); libmason-perl-2.24/t/mason-app.t-15-ok( -f "$tempdir/data/obj/hello.mc.mobj", "object file exists" ); libmason-perl-2.24/t/mason-app.t:16:$output = `$^X bin/mason.pl -e "<% 3+3 %>"`; libmason-perl-2.24/t/mason-app.t-17-is( $output, "6\n", 'correct output' );