From ee37c9202bb80ea4ee50bf463df1495eaf0d3a7c Mon Sep 17 00:00:00 2001 From: Guillem Jover Date: Mon, 25 Nov 2013 21:18:28 +0100 Subject: perl: Try to avoid boolean operators after predicates on error checks Using boolean operators after predicates for error checking makes the code flow slightly confusing, do that only after actions, to check if they succeeded and error out otherwise. --- scripts/Dpkg/Source/Package/V3/Bzr.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'scripts/Dpkg/Source/Package/V3/Bzr.pm') diff --git a/scripts/Dpkg/Source/Package/V3/Bzr.pm b/scripts/Dpkg/Source/Package/V3/Bzr.pm index 86ca1826d..725ed6ffd 100644 --- a/scripts/Dpkg/Source/Package/V3/Bzr.pm +++ b/scripts/Dpkg/Source/Package/V3/Bzr.pm @@ -141,7 +141,7 @@ sub do_build { my $tardir = "$tmp/$dirname"; system('bzr', 'branch', $dir, $tardir); - $? && subprocerr("bzr branch $dir $tardir"); + subprocerr("bzr branch $dir $tardir") if $?; # Remove the working tree. system('bzr', 'remove-tree', $tardir); -- cgit v1.2.3