From: Jerry Hedden <jdhedden@yahoo.com>
Date: Wed, 11 Oct 2006 05:57:43 +0000 (-0700)
Subject: threads 1.44
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=de42e62afe2397fdb786826843b9d1c39044c4b5;p=p5sagit%2Fp5-mst-13.2.git

threads 1.44
Message-ID: <20061011125743.68567.qmail@web30211.mail.mud.yahoo.com>

p4raw-id: //depot/perl@29002
---

diff --git a/ext/threads/Changes b/ext/threads/Changes
index 332a3cb..8f5dd46 100755
--- a/ext/threads/Changes
+++ b/ext/threads/Changes
@@ -1,5 +1,9 @@
 Revision history for Perl extension threads.
 
+1.44 Wed Oct 11 08:55:50 EDT 2006
+	- Complain about bad import options
+	- Added example threads script
+
 1.43 Fri Oct  6 15:12:07 EDT 2006
 	- Stringify threads objects
 	- Removed 'typemap' file
diff --git a/ext/threads/README b/ext/threads/README
index 89ee954..20f4bbd 100755
--- a/ext/threads/README
+++ b/ext/threads/README
@@ -1,4 +1,4 @@
-threads version 1.43
+threads version 1.44
 ====================
 
 This module exposes interpreter threads to the Perl level.
diff --git a/ext/threads/t/thread.t b/ext/threads/t/thread.t
index 710685d..22cff08 100644
--- a/ext/threads/t/thread.t
+++ b/ext/threads/t/thread.t
@@ -171,7 +171,7 @@ package main;
 
 # bugid #24165
 
-run_perl(prog => 'use threads 1.43;' .
+run_perl(prog => 'use threads 1.44;' .
                  'sub a{threads->create(shift)} $t = a sub{};' .
                  '$t->tid; $t->join; $t->tid',
          nolib => ($ENV{PERL_CORE}) ? 0 : 1,
diff --git a/ext/threads/threads.pm b/ext/threads/threads.pm
index f7211b5..435601e 100755
--- a/ext/threads/threads.pm
+++ b/ext/threads/threads.pm
@@ -5,7 +5,7 @@ use 5.008;
 use strict;
 use warnings;
 
-our $VERSION = '1.43';
+our $VERSION = '1.44';
 my $XS_VERSION = $VERSION;
 $VERSION = eval $VERSION;
 
@@ -57,11 +57,12 @@ sub import
         } elsif ($sym =~ /^str/i) {
             import overload ('""' => \&tid);
 
-        } elsif ($sym =~ /all/) {
+        } elsif ($sym =~ /(?:all|yield)/) {
             push(@EXPORT, qw(yield));
 
         } else {
-            push(@EXPORT, $sym);
+            require Carp;
+            Carp::croak("threads: Unknown import option: $sym");
         }
     }
 
@@ -132,7 +133,7 @@ threads - Perl interpreter-based threads
 
 =head1 VERSION
 
-This document describes threads version 1.43
+This document describes threads version 1.44
 
 =head1 SYNOPSIS
 
@@ -904,7 +905,7 @@ L<threads> Discussion Forum on CPAN:
 L<http://www.cpanforum.com/dist/threads>
 
 Annotated POD for L<threads>:
-L<http://annocpan.org/~JDHEDDEN/threads-1.43/threads.pm>
+L<http://annocpan.org/~JDHEDDEN/threads-1.44/threads.pm>
 
 L<threads::shared>, L<perlthrtut>