[libpdf-api2-perl] 05/06: adapt outlines.patch

[Damyan Ivanov]

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

dmn pushed a commit to branch master
in repository libpdf-api2-perl.

commit 544a733800f23f112cfbdf858daf79b2916c02e5
Author: Damyan Ivanov <dmn at debian.org>
Date:   Thu Oct 5 10:27:08 2017 +0000

    adapt outlines.patch
---
 debian/patches/outlines.patch | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

diff --git a/debian/patches/outlines.patch b/debian/patches/outlines.patch
index 90d4b4c..907f1a1 100644
--- a/debian/patches/outlines.patch
+++ b/debian/patches/outlines.patch
@@ -7,13 +7,16 @@ Bug-Debian: https://bugs.debian.org/cgi-bin/bugreport.cgi?bug=509706
 
 --- a/lib/PDF/API2.pm
 +++ b/lib/PDF/API2.pm
-@@ -2278,6 +2278,9 @@ sub outlines {
-     $self->{pdf}->{Root}->{Outlines} ||= PDF::API2::Outlines->new($self);
+@@ -2353,6 +2353,12 @@ sub outlines {
+     $self->{'pdf'}->{'Root'}->{'Outlines'} ||= PDF::API2::Outlines->new($self);
  
-     my $obj = $self->{pdf}->{Root}->{Outlines};
+     my $obj = $self->{'pdf'}->{'Root'}->{'Outlines'};
 +    bless $obj, 'PDF::API2::Outlines';
 +    $obj->{' apipdf'} = $self->{pdf};
 +    $obj->{' api'}    = $self;
++    weaken( $obj->{' apipdf'} );
++    weaken( $obj->{' api'} );
++
  
-     $self->{pdf}->new_obj($obj) unless $obj->is_obj($self->{pdf});
-     $self->{pdf}->out_obj($obj);
+     $self->{'pdf'}->new_obj($obj) unless $obj->is_obj($self->{'pdf'});
+     $self->{'pdf'}->out_obj($obj);

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