[libgraphviz-perl] 02/03: Fix Devel::GraphVizProf module syntax

[Niko Tyni]

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

ntyni pushed a commit to branch master
in repository libgraphviz-perl.

commit a653e42bbe7ba23e7d25d3db5bd1e49b9ea2663c
Author: Niko Tyni <ntyni at debian.org>
Date:   Sun Dec 27 18:10:58 2015 +0200

    Fix Devel::GraphVizProf module syntax
    
    The defined(@array) syntax became a hard failure with Perl 5.22.
    
    Closes: #809095
---
 ...0001-Fix-Devel-GraphVizProf-module-syntax.patch | 38 ++++++++++++++++++++++
 debian/patches/series                              |  1 +
 2 files changed, 39 insertions(+)

diff --git a/debian/patches/0001-Fix-Devel-GraphVizProf-module-syntax.patch b/debian/patches/0001-Fix-Devel-GraphVizProf-module-syntax.patch
new file mode 100644
index 0000000..c9c85d0
--- /dev/null
+++ b/debian/patches/0001-Fix-Devel-GraphVizProf-module-syntax.patch
@@ -0,0 +1,38 @@
+From 477b3a61eab6755032a39cd327f298799d81c4d0 Mon Sep 17 00:00:00 2001
+From: Niko Tyni <ntyni at debian.org>
+Date: Sun, 27 Dec 2015 18:10:58 +0200
+Subject: [PATCH] Fix Devel::GraphVizProf module syntax
+
+The defined(@array) syntax became a hard failure with Perl 5.22.
+
+Bug-Debian: https://bugs.debian.org/809095
+Bug: https://github.com/ronsavage/GraphViz/pull/3
+---
+ lib/Devel/GraphVizProf.pm | 4 ++--
+ 1 file changed, 2 insertions(+), 2 deletions(-)
+
+diff --git a/lib/Devel/GraphVizProf.pm b/lib/Devel/GraphVizProf.pm
+index b14dded..0e657fe 100644
+--- a/lib/Devel/GraphVizProf.pm
++++ b/lib/Devel/GraphVizProf.pm
+@@ -56,7 +56,7 @@ sub DB {
+   # evals which do not define subroutines will disappear.
+   no strict 'refs';
+   $DB::listings{$filename} = \@{"main::_<$filename"} if 
+-    defined(@{"main::_<$filename"});
++    @{"main::_<$filename"};
+   use strict 'refs';
+ 
+ #  warn $DB::prevl . " -> " . $line . "\n";
+@@ -197,7 +197,7 @@ sub sub {
+   if (defined($DB::sub{$DB::sub})) {
+     my($m,$s) = ($DB::sub{$DB::sub} =~ /.+(?=:)|[^:-]+/g);
+     $DB::profiles{$m}->[$s]++;
+-    $DB::listings{$m} = \@{"main::_<$m"} if defined(@{"main::_<$m"});
++    $DB::listings{$m} = \@{"main::_<$m"} if @{"main::_<$m"};
+   }
+   goto &$DB::sub;
+ }
+-- 
+2.6.4
+
diff --git a/debian/patches/series b/debian/patches/series
new file mode 100644
index 0000000..ad16547
--- /dev/null
+++ b/debian/patches/series
@@ -0,0 +1 @@
+0001-Fix-Devel-GraphVizProf-module-syntax.patch

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