File: base-pm-amends-pt1.diff

package info (click to toggle)
perl 5.20.2-3+deb8u11
  • links: PTS, VCS
  • area: main
  • in suites: jessie
  • size: 102,964 kB
  • sloc: perl: 555,553; ansic: 214,041; sh: 38,121; pascal: 8,783; cpp: 3,895; makefile: 2,393; xml: 2,325; yacc: 1,741
file content (27 lines) | stat: -rw-r--r-- 1,025 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 66d0cb1ccce13777092a7d0b0f002cc771e0459d Mon Sep 17 00:00:00 2001
From: Niko Tyni <ntyni@debian.org>
Date: Wed, 7 Jun 2017 21:45:48 +0300
Subject: Revert base.pm no-dot-in-inc fixes to make way for a better version

Patch-Name: debian/CVE-2016-1238/base-pm-amends-pt1.diff
---
 dist/base/lib/base.pm | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

diff --git a/dist/base/lib/base.pm b/dist/base/lib/base.pm
index 2b1509620d..5d1378786d 100644
--- a/dist/base/lib/base.pm
+++ b/dist/base/lib/base.pm
@@ -96,11 +96,7 @@ sub import {
             {
                 local $SIG{__DIE__};
                 my $fn = _module_to_filename($base);
-                eval {
-                    local @INC = @INC;
-                    pop @INC if $INC[-1] eq '.';
-                    require $fn
-                };
+                eval { require $fn };
                 # Only ignore "Can't locate" errors from our eval require.
                 # Other fatal errors (syntax etc) must be reported.
                 #