In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/9270a63125f4fc3e15263d9e3c2a84c327aebb87?hp=4da0549cabdc083ce465e29f25eba4ccd78c21fd>
- Log ----------------------------------------------------------------- commit 9270a63125f4fc3e15263d9e3c2a84c327aebb87 Author: Daniel Dragan <[email protected]> Date: Thu Sep 26 04:39:55 2013 -0400 better pod for threads::_handle First time I tried to get the OS handle I wrote unpack('P[Q || L /*PICK ONE*/]', $thread->_handle()) it crashed because _handle returns a number, not a packed string. unpack wants a packed string. Mention the pointer is numeric and not to ever pass the retval to unpack('P[. ----------------------------------------------------------------------- Summary of changes: Porting/Maintainers.pl | 2 +- dist/threads/lib/threads.pm | 7 ++++--- 2 files changed, 5 insertions(+), 4 deletions(-) diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl index a935031..83015b9 100755 --- a/Porting/Maintainers.pl +++ b/Porting/Maintainers.pl @@ -1854,7 +1854,7 @@ use File::Glob qw(:case); 'threads' => { 'MAINTAINER' => 'jdhedden', - 'DISTRIBUTION' => 'JDHEDDEN/threads-1.87.tar.gz', + 'DISTRIBUTION' => 'JDHEDDEN/threads-1.88.tar.gz', 'FILES' => q[dist/threads], 'EXCLUDED' => [ qr{^examples/}, diff --git a/dist/threads/lib/threads.pm b/dist/threads/lib/threads.pm index 4addf9c..cff41c0 100644 --- a/dist/threads/lib/threads.pm +++ b/dist/threads/lib/threads.pm @@ -5,7 +5,7 @@ use 5.008; use strict; use warnings; -our $VERSION = '1.87'; +our $VERSION = '1.88'; my $XS_VERSION = $VERSION; $VERSION = eval $VERSION; @@ -134,7 +134,7 @@ threads - Perl interpreter-based threads =head1 VERSION -This document describes threads version 1.87 +This document describes threads version 1.88 =head1 SYNOPSIS @@ -428,7 +428,8 @@ This I<private> method returns the memory location of the internal thread structure associated with a threads object. For Win32, this is a pointer to the C<HANDLE> value returned by C<CreateThread> (i.e., C<HANDLE *>); for other platforms, it is a pointer to the C<pthread_t> structure used in the -C<pthread_create> call (i.e., C<pthread_t *>). +C<pthread_create> call (i.e., C<pthread_t *>). The pointer is numeric (UV) and +not packed. It can not be direct passed to C<unpack('P[4]', >. This method is of no use for general Perl threads programming. Its intent is to provide other (XS-based) thread modules with the capability to access, and -- Perl5 Master Repository
