From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 19 Apr 2010 20:00:13 +0000 (+0100)
Subject: Remove Pod::Plainer from the core distribution. Get it from CPAN now.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=afbe215fcafe7a9248264be98c1077d6635a18e8;p=p5sagit%2Fp5-mst-13.2.git

Remove Pod::Plainer from the core distribution. Get it from CPAN now.
---

diff --git a/MANIFEST b/MANIFEST
index b0e38f7..69d42e7 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -2740,8 +2740,6 @@ dist/Pod-Perldoc/t/01_about_verbose.t		test Pod::Perldoc
 dist/Pod-Perldoc/t/checkerbasic.t		test Pod::Perldoc::ToChecker
 dist/Pod-Perldoc/t/perldocbasic.t		test Pod::Perldoc basic operation
 dist/Pod-Perldoc/t/textbasic.t			test Pod::Perldoc::ToText
-dist/Pod-Plainer/Plainer.pm	Pod migration utility module
-dist/Pod-Plainer/t/plainer.t	Test Pod::Plainer
 dist/Safe/Changes		Changes for Safe.pm
 dist/Safe/Makefile.PL		Makefile.PL for Safe.pm
 dist/Safe/MANIFEST		MANIFEST for Safe.pm
diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
index 775baaf..a96b932 100755
--- a/Porting/Maintainers.pl
+++ b/Porting/Maintainers.pl
@@ -1280,17 +1280,6 @@ use File::Glob qw(:case);
 	'UPSTREAM'	=> 'blead',
 	},
 
-    'Pod::Plainer' =>
-	{
-	'DISTRIBUTION'	=> 'RMBARKER/Pod-Plainer-1.02.tar.gz',
-	'MAINTAINER'	=> 'rmbarker',
-	'FILES'		=> q[dist/Pod-Plainer],
-	'CPAN'		=> 1,
-	'UPSTREAM'	=> 'blead',
-	'EXCLUDED'	=> [ qw(t/pod.t t/pod-coverage.t) ],
-	'DEPRECATED'	=> 5.011,
-	},
-
     'Pod::Simple' =>
 	{
 	'MAINTAINER'	=> 'arandal',
diff --git a/dist/Pod-Plainer/Plainer.pm b/dist/Pod-Plainer/Plainer.pm
deleted file mode 100644
index d9e57be..0000000
--- a/dist/Pod-Plainer/Plainer.pm
+++ /dev/null
@@ -1,100 +0,0 @@
-package Pod::Plainer;
-use 5.006;
-use strict;
-use warnings;
-use if $] >= 5.011, 'deprecate';
-use Pod::Parser;
-our @ISA = qw(Pod::Parser);
-our $VERSION = '1.02';
-
-our %E = qw( < lt > gt );
- 
-sub escape_ltgt {
-    (undef, my $text) = @_;
-    $text =~ s/([<>])/E<$E{$1}>/g;
-    $text 
-} 
-
-sub simple_delimiters {
-    (undef, my $seq) = @_;
-    $seq -> left_delimiter( '<' ); 
-    $seq -> right_delimiter( '>' );  
-    $seq;
-}
-
-sub textblock {
-    my($parser,$text,$line) = @_;
-    print {$parser->output_handle()}
-	$parser->parse_text(
-	    { -expand_text => q(escape_ltgt),
-	      -expand_seq => q(simple_delimiters) },
-	    $text, $line ) -> raw_text(); 
-}
-
-1;
-
-__END__
-
-=head1 NAME
-
-Pod::Plainer - Perl extension for converting Pod to old-style Pod.
-
-=head1 SYNOPSIS
-
-  use Pod::Plainer;
-
-  my $parser = Pod::Plainer -> new ();
-  $parser -> parse_from_filehandle(\*STDIN);
-
-=head1 DESCRIPTION
-
-Pod::Plainer uses Pod::Parser which takes Pod with the (new)
-'CE<lt>E<lt> .. E<gt>E<gt>' constructs
-and returns the old(er) style with just 'CE<lt>E<gt>';
-'<' and '>' are replaced by 'EE<lt>ltE<gt>' and 'EE<lt>gtE<gt>'.
-
-This can be used to pre-process Pod before using tools which do not
-recognise the new style Pods.
-
-=head2 METHODS
-
-=over 
-
-=item escape_ltgt
-
-Replace '<' and '>' by 'EE<lt>ltE<gt>' and 'EE<lt>gtE<gt>'.
-
-=item simple_delimiters
-
-Replace delimiters by 'E<lt>' and 'E<gt>'.
-
-=item textblock
-
-Redefine C<textblock> from L<Pod::Parser> to use C<escape_ltgt>
-and C<simple_delimiters>.
-
-=back
-
-=head2 EXPORT
-
-None by default.
-
-=head1 AUTHOR
-
-Robin Barker, rmbarker@cpan.org
-
-=head1 SEE ALSO
-
-See L<Pod::Parser>.
-
-=head1 COPYRIGHT AND LICENSE
-
-Copyright (C) 2009 by Robin Barker
-
-This library is free software; you can redistribute it and/or modify
-it under the same terms as Perl itself, either Perl version 5.10.1 or,
-at your option, any later version of Perl 5 you may have available.
-
-=cut
-
-$Id: Plainer.pm 253 2010-02-11 16:28:10Z rmb1 $
diff --git a/dist/Pod-Plainer/t/plainer.t b/dist/Pod-Plainer/t/plainer.t
deleted file mode 100644
index e226494..0000000
--- a/dist/Pod-Plainer/t/plainer.t
+++ /dev/null
@@ -1,57 +0,0 @@
-#!./perl
-
-use Pod::Plainer;
-my $parser = Pod::Plainer->new();
-my $header = "=pod\n\n";
-my $input  = 'plnr_in.pod';
-my $output = 'plnr_out.pod';
-
-my $test = 0;
-print "1..7\n";
-while( <DATA> ) {
-    my $expected = $header.<DATA>; 
-
-    open(IN, '>', $input) or die $!;
-    print IN $header, $_;
-    close IN or die $!;
-
-    open IN, '<', $input or die $!;
-    open OUT, '>', $output or die $!;
-    $parser->parse_from_filehandle(\*IN,\*OUT);
-
-    open OUT, '<', $output or die $!;
-    my $returned; { local $/; $returned = <OUT>; }
-    
-    unless( $returned eq $expected ) {
-       print map { s/^/\#/mg; $_; }
-               map {+$_}               # to avoid readonly values
-                   "EXPECTED:\n", $expected, "GOT:\n", $returned;
-       print "not ";
-    }
-    printf "ok %d\n", ++$test; 
-    close OUT;
-    close IN;
-}
-
-END { 
-    1 while unlink $input;
-    1 while unlink $output;
-}
-
-# $Id: plainer.t 247 2009-09-15 18:33:34Z rmb1 $
-
-__END__
-=head <> now reads in records
-=head E<lt>E<gt> now reads in records
-=item C<-T> and C<-B> not implemented on filehandles
-=item C<-T> and C<-B> not implemented on filehandles
-e.g. C<< Foo->bar() >> or C<< $obj->bar() >>
-e.g. C<Foo-E<gt>bar()> or C<$obj-E<gt>bar()>
-The C<< => >> operator is mostly just a more visually distinctive
-The C<=E<gt>> operator is mostly just a more visually distinctive
-C<uv < 0x80> in which case you can use C<*s = uv>.
-C<uv E<lt> 0x80> in which case you can use C<*s = uv>.
-C<time ^ ($$ + ($$ << 15))>), but that isn't necessary any more.
-C<time ^ ($$ + ($$ E<lt>E<lt> 15))>), but that isn't necessary any more.
-The bitwise operation C<<< >> >>>
-The bitwise operation C<E<gt>E<gt>>