diff options
Diffstat (limited to 'perl/perl6-Readline/ncurses.patch')
| -rw-r--r-- | perl/perl6-Readline/ncurses.patch | 32 |
1 files changed, 19 insertions, 13 deletions
diff --git a/perl/perl6-Readline/ncurses.patch b/perl/perl6-Readline/ncurses.patch index 3f6eba9cf9..ea103ee2d9 100644 --- a/perl/perl6-Readline/ncurses.patch +++ b/perl/perl6-Readline/ncurses.patch @@ -3,17 +3,23 @@ From: https://github.com/drforr/perl6-readline/issues/23 On Slackware 14.2, symbols from ncurses need to be loaded before symbols from readline can be used. ---- lib/Readline.pm.orig 2017-09-21 10:14:05.000000000 +0200 -+++ lib/Readline.pm 2018-07-02 22:14:26.473664202 +0200 -@@ -1,5 +1,11 @@ - use v6; - use NativeCall; +diff --git a/lib/Readline.pm b/lib/Readline.pm +index 6001792..94db447 100644 +--- a/lib/Readline.pm ++++ b/lib/Readline.pm +@@ -711,6 +711,15 @@ class Readline:ver<0.1.4> { + last; + } + ++ given $*DISTRO.name { ++ when 'slackware' { ++ if $version ~~ v6 { ++ my sub tgetnum(Str --> int32) is native('ncurses') { * } ++ tgetnum(''); ++ } ++ } ++ } + -+INIT { -+ my sub tgetnum(Str) returns int32 is native('ncurses') { * } -+ tgetnum(''); -+} -+ - # - # XXX &cglobal.signature -> (Any $libname, Any $symbol, Any $target-type) - # + ( $library, $version ) + } + |