[libdevel-ptkdb-perl] 09/12: Fix a precedence issue in breakPointEvalExpr() return value

[Niko Tyni]

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

ntyni pushed a commit to annotated tag debian/1.1091-3
in repository libdevel-ptkdb-perl.

commit 0a48799146426a6ea6c8035ebb79112257dcce6f
Author: Niko Tyni <ntyni at debian.org>
Date:   Sun Jun 14 19:06:19 2015 +0300

    Fix a precedence issue in breakPointEvalExpr() return value
    
    Closes: #783756
---
 ...dence-issue-in-breakPointEvalExpr-return-.patch | 26 ++++++++++++++++++++++
 debian/patches/series                              |  1 +
 2 files changed, 27 insertions(+)

diff --git a/debian/patches/0001-Fix-a-precedence-issue-in-breakPointEvalExpr-return-.patch b/debian/patches/0001-Fix-a-precedence-issue-in-breakPointEvalExpr-return-.patch
new file mode 100644
index 0000000..fe5d27a
--- /dev/null
+++ b/debian/patches/0001-Fix-a-precedence-issue-in-breakPointEvalExpr-return-.patch
@@ -0,0 +1,26 @@
+From 7b842cf495b6f05561a806316c376120bcbf82a1 Mon Sep 17 00:00:00 2001
+From: Niko Tyni <ntyni at debian.org>
+Date: Sun, 14 Jun 2015 19:06:19 +0300
+Subject: [PATCH] Fix a precedence issue in breakPointEvalExpr() return value
+
+Bug: https://bugs.debian.org/783756
+---
+ ptkdb.pm | 2 +-
+ 1 file changed, 1 insertion(+), 1 deletion(-)
+
+diff --git a/ptkdb.pm b/ptkdb.pm
+index cd77fda..fc9fec2 100644
+--- a/ptkdb.pm
++++ b/ptkdb.pm
+@@ -4047,7 +4047,7 @@ sub breakPointEvalExpr {
+   
+  $DB::window->DoAlert($@) if $@ ;
+ 
+-  return $result[0] or @result ; # we could have a case where the 1st element is undefined
++  return ($result[0] or @result) ; # we could have a case where the 1st element is undefined
+   # but subsequent elements are defined
+ 
+ } # end of breakPointEvalExpr
+-- 
+2.1.4
+
diff --git a/debian/patches/series b/debian/patches/series
index 5299247..27e610e 100644
--- a/debian/patches/series
+++ b/debian/patches/series
@@ -1 +1,2 @@
 spelling.patch
+0001-Fix-a-precedence-issue-in-breakPointEvalExpr-return-.patch

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