File: 0001-mitigate-INC-pollution-when-loading-ConfigLocal.patch

package info (click to toggle)
libencode-perl 3.08-1%2Bdeb11u2
  • links: PTS, VCS
  • area: main
  • in suites: bullseye
  • size: 11,208 kB
  • sloc: perl: 4,395; ansic: 1,077; makefile: 8
file content (27 lines) | stat: -rw-r--r-- 677 bytes parent folder | download
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
From 200652dec217550188bf7984021552bd4114fe34 Mon Sep 17 00:00:00 2001
From: Ricardo Signes <rjbs@semiotic.systems>
Date: Sat, 17 Jul 2021 14:46:10 -0400
Subject: [PATCH] mitigate @INC pollution when loading ConfigLocal

---
 Encode.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Encode.pm b/Encode.pm
index d3eb3c1..9fb5fc7 100644
--- a/Encode.pm
+++ b/Encode.pm
@@ -65,8 +65,8 @@ require Encode::Config;
 eval {
     local $SIG{__DIE__};
     local $SIG{__WARN__};
-    local @INC = @INC || ();
-    pop @INC if $INC[-1] eq '.';
+    local @INC = @INC;
+    pop @INC if @INC && $INC[-1] eq '.';
     require Encode::ConfigLocal;
 };
 
-- 
2.29.2