[libdist-zilla-role-bootstrap-perl] 20/101: script.pl: properly parenthesise return
Axel Beckert
abe at deuxchevaux.org
Sat Aug 8 11:58:32 UTC 2015
This is an automated email from the git hooks/post-receive script.
abe pushed a commit to annotated tag 0.2.2-source
in repository libdist-zilla-role-bootstrap-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/libdist-zilla-role-bootstrap-perl.git
More information about the Pkg-perl-cvs-commits
mailing list