File: 0001-Fix-a-precedence-issue-in-breakPointEvalExpr-return-.patch

package info (click to toggle)
libdevel-ptkdb-perl 1.1091-4
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 484 kB
  • sloc: perl: 6,170; makefile: 4
file content (26 lines) | stat: -rw-r--r-- 779 bytes parent folder | download | duplicates (3)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
From 7b842cf495b6f05561a806316c376120bcbf82a1 Mon Sep 17 00:00:00 2001
From: Niko Tyni <ntyni@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