r52983 - in /branches/upstream/libscalar-defer-perl/current: Changes MANIFEST META.yml SIGNATURE inc/PerlIO.pm inc/parent.pm lib/Scalar/Defer.pm t/04-threads.t
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Wed Feb 17 21:17:53 UTC 2010
Author: jawnsy-guest
Date: Wed Feb 17 21:17:35 2010
New Revision: 52983
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=52983
Log:
[svn-upgrade] Integrating new upstream version, libscalar-defer-perl (0.23)
Added:
branches/upstream/libscalar-defer-perl/current/t/04-threads.t
Modified:
branches/upstream/libscalar-defer-perl/current/Changes
branches/upstream/libscalar-defer-perl/current/MANIFEST
branches/upstream/libscalar-defer-perl/current/META.yml
branches/upstream/libscalar-defer-perl/current/SIGNATURE
branches/upstream/libscalar-defer-perl/current/inc/PerlIO.pm
branches/upstream/libscalar-defer-perl/current/inc/parent.pm
branches/upstream/libscalar-defer-perl/current/lib/Scalar/Defer.pm
Modified: branches/upstream/libscalar-defer-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libscalar-defer-perl/current/Changes?rev=52983&op=diff
==============================================================================
--- branches/upstream/libscalar-defer-perl/current/Changes (original)
+++ branches/upstream/libscalar-defer-perl/current/Changes Wed Feb 17 21:17:35 2010
@@ -1,3 +1,7 @@
+[Changes for 0.23 - 0210-02-17]
+
+* Fix for [rt.cpan.org #54609] If Scalar::Defer is loaded after a thread is created, no more threads can be started. - SPROUT
+
[Changes for 0.22 - 2010-01-29]
* No code changes; note performance problems under 5.8.9
Modified: branches/upstream/libscalar-defer-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libscalar-defer-perl/current/MANIFEST?rev=52983&op=diff
==============================================================================
--- branches/upstream/libscalar-defer-perl/current/MANIFEST (original)
+++ branches/upstream/libscalar-defer-perl/current/MANIFEST Wed Feb 17 21:17:35 2010
@@ -26,3 +26,4 @@
t/01-basic.t
t/02-is.t
t/03-autoload.t
+t/04-threads.t
Modified: branches/upstream/libscalar-defer-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libscalar-defer-perl/current/META.yml?rev=52983&op=diff
==============================================================================
--- branches/upstream/libscalar-defer-perl/current/META.yml (original)
+++ branches/upstream/libscalar-defer-perl/current/META.yml Wed Feb 17 21:17:35 2010
@@ -20,7 +20,7 @@
provides:
Scalar::Defer:
file: lib/Scalar/Defer.pm
- version: 0.22
+ version: 0.23
Scalar::Defer::Deferred:
file: lib/Scalar/Defer.pm
requires:
@@ -29,4 +29,4 @@
perl: 5.6.0
resources:
license: http://opensource.org/licenses/mit-license.php
-version: 0.22
+version: 0.23
Modified: branches/upstream/libscalar-defer-perl/current/SIGNATURE
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libscalar-defer-perl/current/SIGNATURE?rev=52983&op=diff
==============================================================================
--- branches/upstream/libscalar-defer-perl/current/SIGNATURE (original)
+++ branches/upstream/libscalar-defer-perl/current/SIGNATURE Wed Feb 17 21:17:35 2010
@@ -14,9 +14,9 @@
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
-SHA1 fd933d44c93142d78652b1246d6d4ba145e5ff34 Changes
-SHA1 c8f8d36e7d20dcbe00698733f42c3fa57f1ad831 MANIFEST
-SHA1 6010157e16e93e5c024f8deb7ae81836e37c3d36 META.yml
+SHA1 6ddfa3df06eea085ae62eadf44eeca8007a42b94 Changes
+SHA1 8c4eda49a6bc9af8aaa6213a8a0a0693e9670297 MANIFEST
+SHA1 1c2450e36c1a875517311ee118a75c8efecb4dbc META.yml
SHA1 d952b8c5b7a0ae7906acda3c15215f00c1f72ac5 Makefile.PL
SHA1 91735f73073ea3d7b2d64047e45d25355f516752 README
SHA1 e5fb92ac217988bfc7a6af739b0459627020a27e inc/Module/AutoInstall.pm
@@ -30,21 +30,22 @@
SHA1 12bf1867955480d47d5171a9e9c6a96fabe0b58f inc/Module/Install/Metadata.pm
SHA1 f7ee667e878bd2faf22ee9358a7b5a2cc8e91ba4 inc/Module/Install/Win32.pm
SHA1 8ed29d6cf217e0977469575d788599cbfb53a5ca inc/Module/Install/WriteAll.pm
-SHA1 8b1cc43f1fc02b371cf5232e7071d3c2697f9f78 inc/PerlIO.pm
+SHA1 fb1a897882981885fb57a77fba9bdc588053fc2a inc/PerlIO.pm
SHA1 f7582b52d18e4b1b1bf24b3b7a29ccbf9a8ef00c inc/Test/Builder.pm
SHA1 afc89bc18836c24cac226e5307a0130952832992 inc/Test/Builder/IO/Scalar.pm
SHA1 4694604f76a8ed3e7bd049b2339d3a85c0d39de4 inc/Test/Builder/Module.pm
SHA1 108e94af93b785625dde019b4191774f33ceea13 inc/Test/More.pm
SHA1 55be398173a2d979a648a73a28c8b3a40531dbba inc/ok.pm
-SHA1 332cadac06258e648a7407ee65833f367761de09 inc/parent.pm
-SHA1 354898db0d6bc7c73d1e84e24fce0b94bc53eb82 lib/Scalar/Defer.pm
+SHA1 b526160f58a03562738f361878a6e65e3d79796a inc/parent.pm
+SHA1 3eef8fab60432a1b557aefe4850f23ba1caab003 lib/Scalar/Defer.pm
SHA1 f89e83f7a812e3b8c6afe96bb087d0b8218cbd04 t/01-basic.t
SHA1 2be303573646cd1aee91665c353bce5cb0efd349 t/02-is.t
SHA1 c3ea4c2671256fad58804f6a00d8d48f6afc2349 t/03-autoload.t
+SHA1 0524f27357978e425405be7a30075a617efc8e6a t/04-threads.t
-----BEGIN PGP SIGNATURE-----
-Version: GnuPG v2.0.14 (GNU/Linux)
+Version: GnuPG v1.4.9 (GNU/Linux)
-iEYEARECAAYFAktjt8UACgkQMflWJZZAbqBoWwCglS7ov+kdfDP8YSN3W1YB9wg+
-WJUAoJza9HwQuOZsvHipuNHgBwzOslZU
-=8sOI
+iEYEARECAAYFAkt8BbYACgkQEi9d9xCOQEYlagCeJA2rbS+S8vpRXQtED7PVV9P3
+ExUAnj+fA1lV3v1+QstdJ/kULXUDPHad
+=gafw
-----END PGP SIGNATURE-----
Modified: branches/upstream/libscalar-defer-perl/current/inc/PerlIO.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libscalar-defer-perl/current/inc/PerlIO.pm?rev=52983&op=diff
==============================================================================
--- branches/upstream/libscalar-defer-perl/current/inc/PerlIO.pm (original)
+++ branches/upstream/libscalar-defer-perl/current/inc/PerlIO.pm Wed Feb 17 21:17:35 2010
@@ -30,4 +30,4 @@
1;
__END__
-#line 340
+#line 344
Modified: branches/upstream/libscalar-defer-perl/current/inc/parent.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libscalar-defer-perl/current/inc/parent.pm?rev=52983&op=diff
==============================================================================
--- branches/upstream/libscalar-defer-perl/current/inc/parent.pm (original)
+++ branches/upstream/libscalar-defer-perl/current/inc/parent.pm Wed Feb 17 21:17:35 2010
@@ -2,7 +2,7 @@
package parent;
use strict;
use vars qw($VERSION);
-$VERSION = '0.219';
+$VERSION = '0.223';
sub import {
my $class = shift;
@@ -34,4 +34,4 @@
__END__
-#line 144
+#line 136
Modified: branches/upstream/libscalar-defer-perl/current/lib/Scalar/Defer.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libscalar-defer-perl/current/lib/Scalar/Defer.pm?rev=52983&op=diff
==============================================================================
--- branches/upstream/libscalar-defer-perl/current/lib/Scalar/Defer.pm (original)
+++ branches/upstream/libscalar-defer-perl/current/lib/Scalar/Defer.pm Wed Feb 17 21:17:35 2010
@@ -5,7 +5,7 @@
use warnings;
BEGIN {
- our $VERSION = '0.22';
+ our $VERSION = '0.23';
our @EXPORT = qw( lazy defer force );
our @EXPORT_OK = qw( is_deferred );
}
@@ -101,7 +101,10 @@
};
{
- foreach my $sym (grep { $_ ne 'DESTROY' and $_ ne 'DEMOLISH' and $_ ne 'BEGIN' and $_ ne 'END' and $_ ne 'AUTOLOAD' } keys %UNIVERSAL::) {
+ foreach my $sym (grep {
+ $_ ne 'DESTROY' and $_ ne 'DEMOLISH' and $_ ne 'BEGIN'
+ and $_ ne 'END' and $_ ne 'AUTOLOAD' and $_ ne 'CLONE_SKIP'
+ } keys %UNIVERSAL::) {
my $code = q[
sub $sym {
if ( defined Scalar::Util::blessed($_[0]) ) {
@@ -109,6 +112,9 @@
goto &{$_[0]->can("$sym")};
}
else {
+ # Protect against future ALLCAPS methods
+ return if $_[0] eq Scalar::Defer::DEFER_PACKAGE;
+
return shift->SUPER::$sym(@_);
}
}
Added: branches/upstream/libscalar-defer-perl/current/t/04-threads.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libscalar-defer-perl/current/t/04-threads.t?rev=52983&op=file
==============================================================================
--- branches/upstream/libscalar-defer-perl/current/t/04-threads.t (added)
+++ branches/upstream/libscalar-defer-perl/current/t/04-threads.t Wed Feb 17 21:17:35 2010
@@ -1,0 +1,15 @@
+use strict;
+use warnings;
+use Config;
+use Test::More;
+
+plan skip_all => 'this test requires threads' if !$Config{useithreads};
+
+plan tests => 1;
+
+require threads;
+create threads sub{}=>->join;
+require Scalar::Defer;
+create threads sub{}=>->join;
+
+pass();
More information about the Pkg-perl-cvs-commits
mailing list