[padre] 01/02: tweak patch to avoid a dependency on perl >= 5.20

[dod at debian.org]

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

dod pushed a commit to branch master
in repository padre.

commit bbd1bd68936ff4a4b37d0518b24879d189dd20c7
Author: Dominique Dumont <dod at debian.org>
Date:   Thu Sep 11 19:29:24 2014 +0200

    tweak patch to avoid a dependency on perl >= 5.20
---
 debian/patches/fix-pseudo-perl-doc-for-5-20 | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/debian/patches/fix-pseudo-perl-doc-for-5-20 b/debian/patches/fix-pseudo-perl-doc-for-5-20
index be574ce..a7680c8 100644
--- a/debian/patches/fix-pseudo-perl-doc-for-5-20
+++ b/debian/patches/fix-pseudo-perl-doc-for-5-20
@@ -4,18 +4,21 @@ Description: Fix Padre::Browser::PseudoPerlDoc for perl 5 20
  .
  This broke with perl 5.20. This patch fixes the issue.
  .
- THis patch requires perl 5.20
+ This patch use $self->can to check which method is 
+ available. THis avoids a dependency on perl >= 5.20
 Bug-Debian: https://bugs.debian.org/cgi-bin/bugreport.cgi?bug=759838
 Forwarded: https://github.com/PadreIDE/Padre/pull/1
 Author: https://github.com/vlet
 --- a/lib/Padre/Browser/PseudoPerldoc.pm
 +++ b/lib/Padre/Browser/PseudoPerldoc.pm
-@@ -59,7 +59,7 @@
+@@ -59,7 +59,9 @@
  	$self->find_good_formatter_class;
  	$self->formatter_sanity_check;
  
 -	$self->maybe_diddle_INC;
-+    $self->maybe_extend_searchpath;
++    my $sub =  $self->can('maybe_extend_searchpath') 
++            || $self->can('maybe_diddle_INC');
++    $self->$sub();
  
  	# for when we're apparently in a module or extension directory
  

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