=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== libfile-fu-perl-0.0.8/t/00-load.t-7-my $package = 'File::Fu'; libfile-fu-perl-0.0.8/t/00-load.t:8:eval("require $package"); libfile-fu-perl-0.0.8/t/00-load.t-9-my $err = $@; ############################################## libfile-fu-perl-0.0.8/lib/File/Fu.pm-167- my $prog_dir = Cwd::cwd(); libfile-fu-perl-0.0.8/lib/File/Fu.pm:168: $dir_sub = eval(qq(sub {shift->dir("$prog_dir")})); libfile-fu-perl-0.0.8/lib/File/Fu.pm:169: $name_sub = eval(qq(sub {croak("program_name => '$prog'")})); libfile-fu-perl-0.0.8/lib/File/Fu.pm-170-} ############################################## libfile-fu-perl-0.0.8/lib/File/Fu.pm-174- my $prog_dir = $prog_name->dirname; libfile-fu-perl-0.0.8/lib/File/Fu.pm:175: $name_sub = eval(qq(sub {shift->file('$prog_name')})); libfile-fu-perl-0.0.8/lib/File/Fu.pm:176: $dir_sub = eval(qq(sub {shift->dir('$prog_dir')})); libfile-fu-perl-0.0.8/lib/File/Fu.pm-177- } ############################################## libfile-fu-perl-0.0.8/lib/File/Fu/Base.pm-114-foreach my $test (split(//, 'rwxoRWXOezsfdlpSbctugkTBMAC')) { libfile-fu-perl-0.0.8/lib/File/Fu/Base.pm:115: my $subref = eval("sub {-$test shift}"); libfile-fu-perl-0.0.8/lib/File/Fu/Base.pm-116- $@ and croak("I broke this -- $@");