From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 22 Oct 2001 12:21:28 +0000 (+0000)
Subject: Pod nits, as suggested by Stas Bekman.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ad91d5818b9459af0db9fb5586d7a923a84eda5e;p=p5sagit%2Fp5-mst-13.2.git

Pod nits, as suggested by Stas Bekman.

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

diff --git a/ext/threads/shared/shared.pm b/ext/threads/shared/shared.pm
index 2aae9f1..1ad7dfa 100644
--- a/ext/threads/shared/shared.pm
+++ b/ext/threads/shared/shared.pm
@@ -1,4 +1,3 @@
-
 package threads::shared;
 
 use strict;
@@ -29,7 +28,6 @@ our $VERSION = '0.01';
 
 our %shared;
 
-
 sub cond_wait_disabled { return @_ };
 sub cond_signal_disabled { return @_};
 sub cond_broadcast_disabled { return @_};
@@ -59,7 +57,6 @@ sub CLONE {
 	}
 }
 
-
 package threads::shared::sv;
 use base 'threads::shared';
 
@@ -69,7 +66,6 @@ use base 'threads::shared';
 package threads::shared::hv;
 use base 'threads::shared';
 
-
 bootstrap threads::shared $VERSION;
 
 __END__
@@ -97,7 +93,9 @@ threads::shared - Perl extension for sharing data structures between threads
 
 =head1 DESCRIPTION
 
- This modules allows you to share() variables. These variables will then be shared across different threads (and pseudoforks on win32). They are used together with the threads module.
+This modules allows you to share() variables. These variables will
+then be shared across different threads (and pseudoforks on
+win32). They are used together with the threads module.
 
 =head2 EXPORT
 
@@ -112,7 +110,7 @@ The exported functions need a reference due to unsufficent prototyping!
 
 =head1 AUTHOR
 
-Artur Bergman <lt>artur at contiller.se<gt>
+Artur Bergman E<lt>artur at contiller.seE<gt>
 
 threads is released under the same license as Perl
 
@@ -121,5 +119,3 @@ threads is released under the same license as Perl
 L<perl> L<threads>
 
 =cut
-
-
diff --git a/ext/threads/threads.pm b/ext/threads/threads.pm
index 9f9c323..ef0f412 100755
--- a/ext/threads/threads.pm
+++ b/ext/threads/threads.pm
@@ -1,5 +1,3 @@
-
-
 package threads;
 
 use 5.7.2;
@@ -10,7 +8,6 @@ use overload
     '==' => \&equals,
     'fallback' => 1;
 
-
 #use threads::Shared;
 
 require Exporter;
@@ -18,7 +15,6 @@ require DynaLoader;
 
 use Devel::Peek;
 
-
 our @ISA = qw(Exporter DynaLoader);
 
 our %EXPORT_TAGS = ( all => [qw()]);
@@ -46,7 +42,6 @@ $Config::threads = 1;
 
 bootstrap threads $VERSION;
 
-
 # Preloaded methods go here.
 
 1;
@@ -58,14 +53,12 @@ threads - Perl extension allowing use of interpreter based threads from perl
 
 =head1 SYNOPSIS
 
-
 use threads;
 
 sub start_thread {
     print "Thread started\n";
 }
 
-
 my $thread = threads->new("start_thread","argument");
 
 $thread->new(sub { print "I am a thread"},"argument");
@@ -78,18 +71,21 @@ $thread = threads->self();
 
 thread->tid();
 
-
-
 =head1 DESCRIPTION
 
-Perl 5.6 has something called interpreter threads, interpreter threads are built on MULTIPLICITY and allows for several different perl interpreters to run in different threads. This has been used in win32 perl to fake forks, it has also been available to people embedding perl. 
+Perl 5.6 has something called interpreter threads, interpreter threads
+are built on MULTIPLICITY and allows for several different perl
+interpreters to run in different threads. This has been used in win32
+perl to fake forks, it has also been available to people embedding
+perl.
 
 =over
 
 =item new, function, LIST
 
-This will create a new thread with the entry point function and give it LIST as parameters.
-It will return the corresponding threads object.
+This will create a new thread with the entry point function and give
+it LIST as parameters.  It will return the corresponding threads
+object.
 
 =item $threads->join
 
@@ -126,21 +122,21 @@ threads->self->tid() is a quick way to get current thread id
 
 =head1 AUTHOR and COPYRIGHT
 
-Artur Bergman <lt>artur at contiller.se<gt>
+Artur Bergman E<lt>artur at contiller.seE<gt>
 
 threads is released under the same license as Perl
 
 Thanks to 
 
-Richard Soderberg <lt>rs at crystalflame.net<gt> 
-Helping me out tons, trying to find reasons for races and other wierd bugs!
+Richard Soderberg E<lt>rs at crystalflame.netE<gt> 
+Helping me out tons, trying to find reasons for races and other weird bugs!
 
-Simon Cozens <lt>simon at brecon.co.uk<gt>
-Being there to answer zillions of annoying questions 
+Simon Cozens E<lt>simon at brecon.co.ukE<gt>
+Being there to answer zillions of annoying questions
 
-Rocco Caputo <lt>troc at netrus.net<gt>
+Rocco Caputo E<lt>troc at netrus.netE<gt>
 
-Vipul Ved Prakash <lt>mail at vipul.net<gt>
+Vipul Ved Prakash E<lt>mail at vipul.netE<gt>
 Helping with debugging.
 
 please join perl-ithreads@perl.org for more information
@@ -160,7 +156,3 @@ please join perl-ithreads@perl.org for more information
 L<perl>, L<perlcall>, L<perlembed>, L<perlguts>
 
 =cut
-
-
-
-