[libyaml-libyaml-perl] 01/02: Load B::Deparse at runtime

[Salvatore Bonaccorso]

This is an automated email from the git hooks/post-receive script.

carnil pushed a commit to branch master
in repository libyaml-libyaml-perl.

commit d3bb9e9cdd8e70d5b021cf89365353b9b93fbc8c
Author: Salvatore Bonaccorso <carnil at debian.org>
Date:   Thu Jan 5 06:39:26 2017 +0100

    Load B::Deparse at runtime
    
    Thanks: Eric Wong <e at 80x24.org> for the report
    
    Closes: #849843
---
 debian/patches/Load-B-Deparse-at-runtime.patch | 37 ++++++++++++++++++++++++++
 debian/patches/series                          |  1 +
 2 files changed, 38 insertions(+)

diff --git a/debian/patches/Load-B-Deparse-at-runtime.patch b/debian/patches/Load-B-Deparse-at-runtime.patch
new file mode 100644
index 0000000..f81c97d
--- /dev/null
+++ b/debian/patches/Load-B-Deparse-at-runtime.patch
@@ -0,0 +1,37 @@
+Description: Load B::Deparse at runtime
+ only loaded when necessary
+Origin: upstream, https://github.com/ingydotnet/yaml-libyaml-pm/commit/56ba597ec828e90a4d68659de24e083b39f32e9d
+Bug: https://github.com/ingydotnet/yaml-libyaml-pm/issues/52
+Bug-Debian: https://bugs.debian.org/849843
+Forwarded: https://github.com/ingydotnet/yaml-libyaml-pm/issues/52
+Author: =?UTF-8?q?Tina=20M=C3=BCller?= <cpan2 at tinita.de>
+Reviewed-by: Salvatore Bonaccorso <carnil at debian.org>
+Last-Update: 2017-01-05
+---
+ lib/YAML/XS.pm | 6 +-----
+ 1 file changed, 1 insertion(+), 5 deletions(-)
+
+diff --git a/lib/YAML/XS.pm b/lib/YAML/XS.pm
+index 90253c8..0fd2df4 100644
+--- a/lib/YAML/XS.pm
++++ b/lib/YAML/XS.pm
+@@ -50,15 +50,11 @@ sub LoadFile {
+     return YAML::XS::LibYAML::Load(do { local $/; local $_ = <$IN> });
+ }
+ 
+-# XXX Figure out how to lazily load this module.
+-# So far I've tried using the C function:
+-#      load_module(PERL_LOADMOD_NOIMPORT, newSVpv("B::Deparse", 0), NULL);
+-# But it didn't seem to work.
+-use B::Deparse;
+ 
+ # XXX The following code should be moved from Perl to C.
+ $YAML::XS::coderef2text = sub {
+     my $coderef = shift;
++    require B::Deparse;
+     my $deparse = B::Deparse->new();
+     my $text;
+     eval {
+-- 
+2.11.0
+
diff --git a/debian/patches/series b/debian/patches/series
index daae630..43edb66 100644
--- a/debian/patches/series
+++ b/debian/patches/series
@@ -1,2 +1,3 @@
 disable-update.sh.patch
 libyaml-node-id-hardening.patch
+Load-B-Deparse-at-runtime.patch

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libyaml-libyaml-perl.git