In perl.git, the branch book/perlsecret has been updated <http://perl5.git.perl.org/perl.git/commitdiff/7278cc1761f9af65820de99d23b5692ffc1a98f6?hp=75a3f12ff3e8252fad85f1c431ea4a0cc533ffda>
- Log ----------------------------------------------------------------- commit 7278cc1761f9af65820de99d23b5692ffc1a98f6 Author: Philippe Bruhat (BooK) <[email protected]> Date: Wed Apr 11 22:23:23 2012 +0200 some restrictions on the use of the torx screwdriver operator on older Perl versions M pod/perlsecret.pod M t/japh/secret.t commit 5df80db1e1ec899cf35713ed0ff5bfe573f8f5c0 Author: Philippe Bruhat (BooK) <[email protected]> Date: Wed Apr 11 19:58:10 2012 +0200 thank yet another contributor M pod/perlsecret.pod ----------------------------------------------------------------------- Summary of changes: pod/perlsecret.pod | 6 +++++- t/japh/secret.t | 2 +- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/pod/perlsecret.pod b/pod/perlsecret.pod index 50f38a7..5bdd48e 100644 --- a/pod/perlsecret.pod +++ b/pod/perlsecret.pod @@ -514,6 +514,9 @@ This operator provides conditional reset to C<0>: $x *=!! $y; # $x = 0 unless $y; $x *=! $y; # $x = 0 if $y; +The torx screwdriver operator does not work properly with negative numbers +different from C<-1> on Perl versions lower than or equal to 5.13.5. + =item Pozidriv This operator provides conditional reset to C<''>: @@ -616,7 +619,8 @@ Philippe Bruhat (BooK) The author would like to thank José Castro, Andrew Savige, Dmitry Karasik, Abigail, Yitzchak Scott-Thoennes, Zefram, Tye McQueen, Maxim Vuets, Aristotle Pagaltzis, Toby Inkster, Ãvar Arnfjörð Bjarmason, -Rafaël Garcia-Suarez, Andreas J. König, Andy Armstrong, Pau Amma +Rafaël Garcia-Suarez, Andreas J. König, Andy Armstrong, Pau Amma, +Keith C. Ivey and the Fun With Perl mailing list for inspiration, suggestions and patches. =head1 REFERENCES diff --git a/t/japh/secret.t b/t/japh/secret.t index 637864c..c71e566 100644 --- a/t/japh/secret.t +++ b/t/japh/secret.t @@ -186,7 +186,7 @@ for my $val ( -1, 0, 1, 1.5, -1.5, -0.5 ) { is( $got, $val, "$val *=!! true" ); SKIP: { - skip '*=!! broken with negative != -1 on perl <= 5.013005', 2 + skip '*=!! and *=! broken with negative != -1 on perl <= 5.013005', 2 if $val < 0 && $val != -1 && $] <= 5.013005; ( $got = $val ) *=!! $false; is( $got, 0, "$val *=!! false" ); -- Perl5 Master Repository
