CVE-2011-10007

File::Find::Rule through 0.34 for Perl is vulnerable to Arbitrary Code Execution when grep() encounters a crafted filename. A file handle is opened with the 2 argument form of open() allowing an attacker controlled filename to provide the MODE parameter to open(), turning the filename into a command to be executed. Example: $ mkdir /tmp/poc; echo > "/tmp/poc/|id" $ perl -MFile::Find::Rule \     -E 'File::Find::Rule->grep("foo")->in("/tmp/poc")' uid=1000(user) gid=1000(user) groups=1000(user),100(users)

• libfile-find-rule-perl 0.34-4 (bug https://bugs.debian.org/cgi-bin/bugreport.cgi?bug=1107311) https://lists.security.metacpan.org/cve-announce/msg/30183067/ https://rt.cpan.org/Public/Bug/Display.html?id=64504 https://github.com/richardc/perl-file-find-rule/pull/4 Fixed by: https://github.com/richardc/perl-file-find-rule/commit/df58128bcee4c1da78c34d7f3fe1357e575ad56f