[libmoosex-has-sugar-perl] 36/120: Properly parenthesize other things

Intrigeri intrigeri at moszumanska.debian.org
Wed Aug 27 21:35:08 UTC 2014


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

intrigeri pushed a commit to annotated tag 0.05070422-source
in repository libmoosex-has-sugar-perl.

commit c106b524b2ace7b512f8632379c801e87527ca91
Author: Kent Fredric <kentfredric at gmail.com>
Date:   Thu Oct 24 07:21:23 2013 +1300

    Properly parenthesize other things
---
 before_script.pl | 2 +-
 install_deps.pl  | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/before_script.pl b/before_script.pl
index f7d63f7..8c70d73 100644
--- a/before_script.pl
+++ b/before_script.pl
@@ -5,7 +5,7 @@ use warnings;
 use utf8;
 sub diag { print STDERR @_; print STDERR "\n" }
 sub env_exists { return exists $ENV{ $_[0] } }
-sub env_true { return env_exists( $_[0] ) and $ENV{ $_[0] } }
+sub env_true { return ( env_exists( $_[0] ) and $ENV{ $_[0] } ) }
 
 sub safe_exec {
   my ( $command, @params ) = @_;
diff --git a/install_deps.pl b/install_deps.pl
index 9d6c091..8eaa4d3 100644
--- a/install_deps.pl
+++ b/install_deps.pl
@@ -5,8 +5,8 @@ use utf8;
 
 sub diag { print STDERR @_; print STDERR "\n" }
 sub env_exists { return exists $ENV{ $_[0] } }
-sub env_true   { return env_exists( $_[0] ) and $ENV{ $_[0] } }
-sub env_is     { return env_exists( $_[0] ) and $ENV{ $_[0] } eq $_[1] }
+sub env_true   { return ( env_exists( $_[0] ) and $ENV{ $_[0] } ) }
+sub env_is     { return ( env_exists( $_[0] ) and $ENV{ $_[0] } eq $_[1] ) }
 
 sub safe_exec_nonfatal {
   my ( $command, @params ) = @_;

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



More information about the Pkg-perl-cvs-commits mailing list