In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/6fa2c250307a2b1de4850e25cb3eb81bc16c7244?hp=e0ddbfb27c49b93693a9d5955ba11e97759b26a7>
- Log ----------------------------------------------------------------- commit 6fa2c250307a2b1de4850e25cb3eb81bc16c7244 Author: Eric Brine <[email protected]> Date: Mon Jan 23 18:55:52 2012 -0800 Fix bad pointer size in has_trailing_nul ----------------------------------------------------------------------- Summary of changes: ext/PerlIO-scalar/t/scalar.t | 5 +++-- 1 files changed, 3 insertions(+), 2 deletions(-) diff --git a/ext/PerlIO-scalar/t/scalar.t b/ext/PerlIO-scalar/t/scalar.t index ccf66dd..3a8fca1 100644 --- a/ext/PerlIO-scalar/t/scalar.t +++ b/ext/PerlIO-scalar/t/scalar.t @@ -328,8 +328,9 @@ sub has_trailing_nul(\$) { my $len = $sv->LEN; return 0 if $cur >= $len; - my $pv_addr = unpack 'J', pack 'P', $$ref; - my $trailing = unpack 'P', pack 'J', $pv_addr+$cur; + my $ptrfmt = $Config::Config{ptrsize} == $Config::Config{intsize} ? "I" : "J"; + my $pv_addr = unpack $ptrfmt, pack 'P', $$ref; + my $trailing = unpack 'P', pack $ptrfmt, $pv_addr+$cur; return $trailing eq "\0"; } SKIP: { -- Perl5 Master Repository
