[libmoosex-has-sugar-perl] 35/120: script.pl: properly parenthesise return

[Intrigeri]

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 1e519e44263a8177930a1ce97735f7b156e24a62
Author: Kent Fredric <kentfredric at gmail.com>
Date:   Thu Oct 24 07:19:23 2013 +1300

    script.pl: properly parenthesise return
---
 script.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/script.pl b/script.pl
index 64a7b0f..1f44ebe 100644
--- a/script.pl
+++ b/script.pl
@@ -6,8 +6,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