1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
From: Stig Palmquist <git@stig.io>
Date: Thu, 5 Jun 2025 12:58:45 +0200
Subject: Fix for CVE-2011-10007: Use 3 arg open in grep()`
Origin: https://github.com/richardc/perl-file-find-rule/commit/df58128bcee4c1da78c34d7f3fe1357e575ad56f
Bug: https://rt.cpan.org/Public/Bug/Display.html?id=64504
Bug-Debian: https://bugs.debian.org/1107311
Bug-Debian-Security: https://security-tracker.debian.org/tracker/CVE-2011-10007
Bug: https://github.com/richardc/perl-file-find-rule/pull/4
---
lib/File/Find/Rule.pm | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/lib/File/Find/Rule.pm b/lib/File/Find/Rule.pm
index feccc76f9fcb..d4dc4754d309 100644
--- a/lib/File/Find/Rule.pm
+++ b/lib/File/Find/Rule.pm
@@ -420,7 +420,7 @@ sub grep {
$self->exec( sub {
local *FILE;
- open FILE, $_ or return;
+ open FILE, '<', $_ or return;
local ($_, $.);
while (<FILE>) {
for my $p (@pattern) {
--
2.49.0
|
