This is an automated email from the git hooks/post-receive script. js pushed a commit to tag 0.043_01 in repository libtype-tiny-perl.
commit 1975541440f159a44af5ce2b7c646c437733cf7a Author: Toby Inkster <m...@tobyinkster.co.uk> Date: Sat Apr 5 11:58:01 2014 +0100 neated up Type::Tiny's use of Sub::Quote::inlinify --- lib/Type/Tiny.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lib/Type/Tiny.pm b/lib/Type/Tiny.pm index a3dcad8..9103c86 100644 --- a/lib/Type/Tiny.pm +++ b/lib/Type/Tiny.pm @@ -138,8 +138,10 @@ sub new $params{inlined} = sub { my ($self, $var) = @_; my $code = Sub::Quote::inlinify( - $var eq q($_) ? $perlstring : "local \$_ = $var; $perlstring", + $perlstring, $var, + $var eq q($_) ? '' : "local \$_ = $var;", + 1, ); $code = sprintf('%s and %s', $self->parent->inline_check($var), $code) if $self->has_parent; return $code; -- Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libtype-tiny-perl.git _______________________________________________ Pkg-perl-cvs-commits mailing list Pkg-perl-cvs-commits@lists.alioth.debian.org http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits