File: CVE-2016-1238.patch

package info (click to toggle)
libunicode-linebreak-perl 0.0.20140601-2%2Bdeb8u2
  • links: PTS, VCS
  • area: main
  • in suites: jessie
  • size: 4,124 kB
  • ctags: 1,278
  • sloc: ansic: 32,274; perl: 783; makefile: 2
file content (16 lines) | stat: -rw-r--r-- 651 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
diff -urN libunicode-linebreak-perl-0.0.20140601/lib/Unicode/LineBreak.pm libunicode-linebreak-perl-0.0.20140601.patched/lib/Unicode/LineBreak.pm
--- libunicode-linebreak-perl-0.0.20140601/lib/Unicode/LineBreak.pm	2014-06-20 06:37:42.000000000 +0100
+++ libunicode-linebreak-perl-0.0.20140601.patched/lib/Unicode/LineBreak.pm	2016-07-24 22:10:11.513202044 +0100
@@ -47,7 +47,11 @@
     ViramaAsJoiner => 'YES',
 );
 our $Config = {};
-eval { require Unicode::LineBreak::Defaults; };
+eval {
+    local @INC = @INC;
+    pop @INC if $INC[-1] eq '.';
+    require Unicode::LineBreak::Defaults;
+};
 push @Config, (%$Config);
 
 ### Exportable constants