r57289 - in /trunk/libpod-simple-perl: ./ debian/ debian/source/ lib/Pod/ lib/Pod/Simple/ t/
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Sun May 2 02:37:21 UTC 2010
Author: jawnsy-guest
Date: Sun May 2 02:37:11 2010
New Revision: 57289
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=57289
Log:
TODO: refresh copyright info
* New upstream release
* Use new 3.0 (quilt) source format
* Standards-Version 3.8.4 (no changes)
Added:
trunk/libpod-simple-perl/debian/source/
trunk/libpod-simple-perl/debian/source/format
Removed:
trunk/libpod-simple-perl/debian/README.source
Modified:
trunk/libpod-simple-perl/ChangeLog
trunk/libpod-simple-perl/META.yml
trunk/libpod-simple-perl/README
trunk/libpod-simple-perl/debian/changelog
trunk/libpod-simple-perl/debian/control
trunk/libpod-simple-perl/debian/rules
trunk/libpod-simple-perl/lib/Pod/Simple.pm
trunk/libpod-simple-perl/lib/Pod/Simple/BlackBox.pm
trunk/libpod-simple-perl/lib/Pod/Simple/Checker.pm
trunk/libpod-simple-perl/lib/Pod/Simple/Debug.pm
trunk/libpod-simple-perl/lib/Pod/Simple/DumpAsText.pm
trunk/libpod-simple-perl/lib/Pod/Simple/DumpAsXML.pm
trunk/libpod-simple-perl/lib/Pod/Simple/HTML.pm
trunk/libpod-simple-perl/lib/Pod/Simple/HTMLBatch.pm
trunk/libpod-simple-perl/lib/Pod/Simple/LinkSection.pm
trunk/libpod-simple-perl/lib/Pod/Simple/Methody.pm
trunk/libpod-simple-perl/lib/Pod/Simple/Progress.pm
trunk/libpod-simple-perl/lib/Pod/Simple/PullParser.pm
trunk/libpod-simple-perl/lib/Pod/Simple/PullParserEndToken.pm
trunk/libpod-simple-perl/lib/Pod/Simple/PullParserStartToken.pm
trunk/libpod-simple-perl/lib/Pod/Simple/PullParserTextToken.pm
trunk/libpod-simple-perl/lib/Pod/Simple/PullParserToken.pm
trunk/libpod-simple-perl/lib/Pod/Simple/RTF.pm
trunk/libpod-simple-perl/lib/Pod/Simple/Search.pm
trunk/libpod-simple-perl/lib/Pod/Simple/SimpleTree.pm
trunk/libpod-simple-perl/lib/Pod/Simple/Text.pm
trunk/libpod-simple-perl/lib/Pod/Simple/TextContent.pm
trunk/libpod-simple-perl/lib/Pod/Simple/TiedOutFH.pm
trunk/libpod-simple-perl/lib/Pod/Simple/Transcode.pm
trunk/libpod-simple-perl/lib/Pod/Simple/TranscodeDumb.pm
trunk/libpod-simple-perl/lib/Pod/Simple/TranscodeSmart.pm
trunk/libpod-simple-perl/lib/Pod/Simple/XHTML.pm
trunk/libpod-simple-perl/lib/Pod/Simple/XMLOutStream.pm
trunk/libpod-simple-perl/t/fcodes.t
trunk/libpod-simple-perl/t/fcodes_l.t
trunk/libpod-simple-perl/t/fcodes_s.t
trunk/libpod-simple-perl/t/stree.t
Modified: trunk/libpod-simple-perl/ChangeLog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpod-simple-perl/ChangeLog?rev=57289&op=diff
==============================================================================
--- trunk/libpod-simple-perl/ChangeLog (original)
+++ trunk/libpod-simple-perl/ChangeLog Sun May 2 02:37:11 2010
@@ -1,5 +1,16 @@
# ChangeLog for Pod::Simple dist
#---------------------------------------------------------------------------
+
+2009-04-27
+ * Release 3.14
+
+ Removed explicit loading of UNIVERSAL. RJBS.
+
+ Reversed the change applied in release 3.09 to fix RT #12239. POD
+ tag found inside a complex POD tag (e.g., "C<<< I<foo> >>>") is
+ again parsed as a tag embedded in a tag instead of text and
+ entities. The previous interpretation of `perldoc perlpod` was
+ mistaken. (RT #55602 from Christopher J. Madsen).
2009-12-17 David E. Wheeler <david at justatheory.org>
* Release 3.13
Modified: trunk/libpod-simple-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpod-simple-perl/META.yml?rev=57289&op=diff
==============================================================================
--- trunk/libpod-simple-perl/META.yml (original)
+++ trunk/libpod-simple-perl/META.yml Sun May 2 02:37:11 2010
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: Pod-Simple
-version: 3.13
+version: 3.14
abstract: framework for parsing Pod
author:
- Allison Randal <allison at perl.org>
@@ -34,7 +34,7 @@
directory:
- t
- inc
-generated_by: ExtUtils::MakeMaker version 6.55_03
+generated_by: ExtUtils::MakeMaker version 6.56
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
version: 1.4
Modified: trunk/libpod-simple-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpod-simple-perl/README?rev=57289&op=diff
==============================================================================
--- trunk/libpod-simple-perl/README (original)
+++ trunk/libpod-simple-perl/README Sun May 2 02:37:11 2010
@@ -1,4 +1,4 @@
-=head1 Pod::Simple version 3.13
+=head1 Pod::Simple version 3.14
Pod::Simple is a Perl library for parsing text in the Pod ("plain old
documentation") markup language that is typically used for writing
Modified: trunk/libpod-simple-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpod-simple-perl/debian/changelog?rev=57289&op=diff
==============================================================================
--- trunk/libpod-simple-perl/debian/changelog (original)
+++ trunk/libpod-simple-perl/debian/changelog Sun May 2 02:37:11 2010
@@ -1,3 +1,13 @@
+libpod-simple-perl (3.14-1) UNRELEASED; urgency=low
+
+ TODO: refresh copyright info
+
+ * New upstream release
+ * Use new 3.0 (quilt) source format
+ * Standards-Version 3.8.4 (no changes)
+
+ -- Jonathan Yu <jawnsy at cpan.org> Sat, 01 May 2010 23:11:47 -0400
+
libpod-simple-perl (3.13-1) unstable; urgency=low
[ Jonathan Yu ]
Modified: trunk/libpod-simple-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpod-simple-perl/debian/control?rev=57289&op=diff
==============================================================================
--- trunk/libpod-simple-perl/debian/control (original)
+++ trunk/libpod-simple-perl/debian/control Sun May 2 02:37:11 2010
@@ -1,13 +1,13 @@
Source: libpod-simple-perl
Section: perl
Priority: optional
-Build-Depends: debhelper (>= 7.0.50~), quilt (>= 0.46-7)
+Build-Depends: debhelper (>= 7.0.50~)
Build-Depends-Indep: perl (>= 5.10), perl-doc,
libpod-escapes-perl, libhtml-parser-perl, libtest-pod-perl
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
Uploaders: Jay Bonci <jaybonci at debian.org>, Gunnar Wolf <gwolf at debian.org>,
Damyan Ivanov <dmn at debian.org>, Jonathan Yu <jawnsy at cpan.org>
-Standards-Version: 3.8.3
+Standards-Version: 3.8.4
Homepage: http://search.cpan.org/dist/Pod-Simple/
Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libpod-simple-perl/
Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/libpod-simple-perl/
Modified: trunk/libpod-simple-perl/debian/rules
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpod-simple-perl/debian/rules?rev=57289&op=diff
==============================================================================
--- trunk/libpod-simple-perl/debian/rules (original)
+++ trunk/libpod-simple-perl/debian/rules Sun May 2 02:37:11 2010
@@ -1,12 +1,12 @@
#!/usr/bin/make -f
-PACKAGE:= $(firstword $(shell dh_listpackages))
-TMP:= $(CURDIR)/debian/$(PACKAGE)
+PACKAGE = $(shell dh_listpackages)
+TMP = $(CURDIR)/debian/$(PACKAGE)
%:
- dh --with quilt $@
+ dh $@
override_dh_auto_install:
dh_auto_install
- $(RM) -v $(TMP)/usr/share/perl5/perlpod*.pod \
- $(TMP)/usr/share/man/man3/perlpod*.3pm
+ $(RM) -v $(TMP)/usr/share/perl5/perlpod*.pod
+ $(RM) -v $(TMP)/usr/share/man/man3/perlpod*.3pm
Added: trunk/libpod-simple-perl/debian/source/format
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpod-simple-perl/debian/source/format?rev=57289&op=file
==============================================================================
--- trunk/libpod-simple-perl/debian/source/format (added)
+++ trunk/libpod-simple-perl/debian/source/format Sun May 2 02:37:11 2010
@@ -1,0 +1,1 @@
+3.0 (quilt)
Modified: trunk/libpod-simple-perl/lib/Pod/Simple.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpod-simple-perl/lib/Pod/Simple.pm?rev=57289&op=diff
==============================================================================
--- trunk/libpod-simple-perl/lib/Pod/Simple.pm (original)
+++ trunk/libpod-simple-perl/lib/Pod/Simple.pm Sun May 2 02:37:11 2010
@@ -18,7 +18,7 @@
);
@ISA = ('Pod::Simple::BlackBox');
-$VERSION = '3.13';
+$VERSION = '3.14';
@Known_formatting_codes = qw(I B C L E F S X Z);
%Known_formatting_codes = map(($_=>1), @Known_formatting_codes);
Modified: trunk/libpod-simple-perl/lib/Pod/Simple/BlackBox.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpod-simple-perl/lib/Pod/Simple/BlackBox.pm?rev=57289&op=diff
==============================================================================
--- trunk/libpod-simple-perl/lib/Pod/Simple/BlackBox.pm (original)
+++ trunk/libpod-simple-perl/lib/Pod/Simple/BlackBox.pm Sun May 2 02:37:11 2010
@@ -23,7 +23,7 @@
use strict;
use Carp ();
use vars qw($VERSION );
-$VERSION = '3.13';
+$VERSION = '3.14';
#use constant DEBUG => 7;
BEGIN {
require Pod::Simple;
@@ -1701,30 +1701,15 @@
if(defined $1) {
if(defined $2) {
DEBUG > 3 and print "Found complex start-text code \"$1\"\n";
- # signal that we're looking for simple unless we're in complex.
- if ($stack[-1]) {
- # We're in complex already. It's just stuff.
- DEBUG > 4 and print " It's just stuff.\n";
- push @{ $lineage[-1] }, $1;
- } else {
- # length of the necessary complex end-code string
- push @stack, length($2) + 1;
- push @lineage, [ substr($1,0,1), {}, ]; # new node object
- push @{ $lineage[-2] }, $lineage[-1];
- }
+ push @stack, length($2) + 1;
+ # length of the necessary complex end-code string
} else {
DEBUG > 3 and print "Found simple start-text code \"$1\"\n";
- if ($stack[-1]) {
- # We're in complex already. It's just stuff.
- DEBUG > 4 and print " It's just stuff.\n";
- push @{ $lineage[-1] }, $1;
- } else {
- # signal that we're looking for simple.
- push @stack, 0;
- push @lineage, [ substr($1,0,1), {}, ]; # new node object
- push @{ $lineage[-2] }, $lineage[-1];
- }
+ push @stack, 0; # signal that we're looking for simple
}
+ push @lineage, [ substr($1,0,1), {}, ]; # new node object
+ push @{ $lineage[-2] }, $lineage[-1];
+
} elsif(defined $4) {
DEBUG > 3 and print "Found apparent complex end-text code \"$3$4\"\n";
# This is where it gets messy...
@@ -1828,7 +1813,6 @@
sub _stringify_lol { # the real recursor
my($lol, $to) = @_;
- use UNIVERSAL ();
for(my $i = 2; $i < @$lol; ++$i) {
if( ref($lol->[$i] || '') and UNIVERSAL::isa($lol->[$i], 'ARRAY') ) {
_stringify_lol( $lol->[$i], $to); # recurse!
Modified: trunk/libpod-simple-perl/lib/Pod/Simple/Checker.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpod-simple-perl/lib/Pod/Simple/Checker.pm?rev=57289&op=diff
==============================================================================
--- trunk/libpod-simple-perl/lib/Pod/Simple/Checker.pm (original)
+++ trunk/libpod-simple-perl/lib/Pod/Simple/Checker.pm Sun May 2 02:37:11 2010
@@ -9,7 +9,7 @@
use Pod::Simple::Methody ();
use Pod::Simple ();
use vars qw( @ISA $VERSION );
-$VERSION = '3.13';
+$VERSION = '3.14';
@ISA = ('Pod::Simple::Methody');
BEGIN { *DEBUG = defined(&Pod::Simple::DEBUG)
? \&Pod::Simple::DEBUG
Modified: trunk/libpod-simple-perl/lib/Pod/Simple/Debug.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpod-simple-perl/lib/Pod/Simple/Debug.pm?rev=57289&op=diff
==============================================================================
--- trunk/libpod-simple-perl/lib/Pod/Simple/Debug.pm (original)
+++ trunk/libpod-simple-perl/lib/Pod/Simple/Debug.pm Sun May 2 02:37:11 2010
@@ -3,7 +3,7 @@
package Pod::Simple::Debug;
use strict;
use vars qw($VERSION );
-$VERSION = '3.13';
+$VERSION = '3.14';
sub import {
my($value,$variable);
Modified: trunk/libpod-simple-perl/lib/Pod/Simple/DumpAsText.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpod-simple-perl/lib/Pod/Simple/DumpAsText.pm?rev=57289&op=diff
==============================================================================
--- trunk/libpod-simple-perl/lib/Pod/Simple/DumpAsText.pm (original)
+++ trunk/libpod-simple-perl/lib/Pod/Simple/DumpAsText.pm Sun May 2 02:37:11 2010
@@ -1,7 +1,7 @@
require 5;
package Pod::Simple::DumpAsText;
-$VERSION = '3.13';
+$VERSION = '3.14';
use Pod::Simple ();
BEGIN {@ISA = ('Pod::Simple')}
Modified: trunk/libpod-simple-perl/lib/Pod/Simple/DumpAsXML.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpod-simple-perl/lib/Pod/Simple/DumpAsXML.pm?rev=57289&op=diff
==============================================================================
--- trunk/libpod-simple-perl/lib/Pod/Simple/DumpAsXML.pm (original)
+++ trunk/libpod-simple-perl/lib/Pod/Simple/DumpAsXML.pm Sun May 2 02:37:11 2010
@@ -1,7 +1,7 @@
require 5;
package Pod::Simple::DumpAsXML;
-$VERSION = '3.13';
+$VERSION = '3.14';
use Pod::Simple ();
BEGIN {@ISA = ('Pod::Simple')}
Modified: trunk/libpod-simple-perl/lib/Pod/Simple/HTML.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpod-simple-perl/lib/Pod/Simple/HTML.pm?rev=57289&op=diff
==============================================================================
--- trunk/libpod-simple-perl/lib/Pod/Simple/HTML.pm (original)
+++ trunk/libpod-simple-perl/lib/Pod/Simple/HTML.pm Sun May 2 02:37:11 2010
@@ -10,9 +10,8 @@
$Doctype_decl $Content_decl
);
@ISA = ('Pod::Simple::PullParser');
-$VERSION = '3.13';
-
-use UNIVERSAL ();
+$VERSION = '3.14';
+
BEGIN {
if(defined &DEBUG) { } # no-op
elsif( defined &Pod::Simple::DEBUG ) { *DEBUG = \&Pod::Simple::DEBUG }
Modified: trunk/libpod-simple-perl/lib/Pod/Simple/HTMLBatch.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpod-simple-perl/lib/Pod/Simple/HTMLBatch.pm?rev=57289&op=diff
==============================================================================
--- trunk/libpod-simple-perl/lib/Pod/Simple/HTMLBatch.pm (original)
+++ trunk/libpod-simple-perl/lib/Pod/Simple/HTMLBatch.pm Sun May 2 02:37:11 2010
@@ -5,7 +5,7 @@
use vars qw( $VERSION $HTML_RENDER_CLASS $HTML_EXTENSION
$CSS $JAVASCRIPT $SLEEPY $SEARCH_CLASS @ISA
);
-$VERSION = '3.13';
+$VERSION = '3.14';
@ISA = (); # Yup, we're NOT a subclass of Pod::Simple::HTML!
# TODO: nocontents stylesheets. Strike some of the color variations?
@@ -13,8 +13,6 @@
use Pod::Simple::HTML ();
BEGIN {*esc = \&Pod::Simple::HTML::esc }
use File::Spec ();
-use UNIVERSAL ();
- # "Isn't the Universe an amazing place? I wouldn't live anywhere else!"
use Pod::Simple::Search;
$SEARCH_CLASS ||= 'Pod::Simple::Search';
Modified: trunk/libpod-simple-perl/lib/Pod/Simple/LinkSection.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpod-simple-perl/lib/Pod/Simple/LinkSection.pm?rev=57289&op=diff
==============================================================================
--- trunk/libpod-simple-perl/lib/Pod/Simple/LinkSection.pm (original)
+++ trunk/libpod-simple-perl/lib/Pod/Simple/LinkSection.pm Sun May 2 02:37:11 2010
@@ -3,12 +3,12 @@
package Pod::Simple::LinkSection;
# Based somewhat dimly on Array::Autojoin
use vars qw($VERSION );
-$VERSION = '3.13';
+$VERSION = '3.14';
use strict;
use Pod::Simple::BlackBox;
use vars qw($VERSION );
-$VERSION = '3.13';
+$VERSION = '3.14';
use overload( # So it'll stringify nice
'""' => \&Pod::Simple::BlackBox::stringify_lol,
Modified: trunk/libpod-simple-perl/lib/Pod/Simple/Methody.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpod-simple-perl/lib/Pod/Simple/Methody.pm?rev=57289&op=diff
==============================================================================
--- trunk/libpod-simple-perl/lib/Pod/Simple/Methody.pm (original)
+++ trunk/libpod-simple-perl/lib/Pod/Simple/Methody.pm Sun May 2 02:37:11 2010
@@ -4,7 +4,7 @@
use strict;
use Pod::Simple ();
use vars qw(@ISA $VERSION);
-$VERSION = '3.13';
+$VERSION = '3.14';
@ISA = ('Pod::Simple');
# Yes, we could use named variables, but I want this to be impose
Modified: trunk/libpod-simple-perl/lib/Pod/Simple/Progress.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpod-simple-perl/lib/Pod/Simple/Progress.pm?rev=57289&op=diff
==============================================================================
--- trunk/libpod-simple-perl/lib/Pod/Simple/Progress.pm (original)
+++ trunk/libpod-simple-perl/lib/Pod/Simple/Progress.pm Sun May 2 02:37:11 2010
@@ -1,7 +1,7 @@
require 5;
package Pod::Simple::Progress;
-$VERSION = '3.13';
+$VERSION = '3.14';
use strict;
# Objects of this class are used for noting progress of an
Modified: trunk/libpod-simple-perl/lib/Pod/Simple/PullParser.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpod-simple-perl/lib/Pod/Simple/PullParser.pm?rev=57289&op=diff
==============================================================================
--- trunk/libpod-simple-perl/lib/Pod/Simple/PullParser.pm (original)
+++ trunk/libpod-simple-perl/lib/Pod/Simple/PullParser.pm Sun May 2 02:37:11 2010
@@ -1,7 +1,7 @@
require 5;
package Pod::Simple::PullParser;
-$VERSION = '3.13';
+$VERSION = '3.14';
use Pod::Simple ();
BEGIN {@ISA = ('Pod::Simple')}
@@ -205,7 +205,6 @@
return shift @{$self->{'token_buffer'}}; # that's an undef if empty
}
-use UNIVERSAL ();
sub unget_token {
my $self = shift;
DEBUG and print "Ungetting ", scalar(@_), " tokens: ",
Modified: trunk/libpod-simple-perl/lib/Pod/Simple/PullParserEndToken.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpod-simple-perl/lib/Pod/Simple/PullParserEndToken.pm?rev=57289&op=diff
==============================================================================
--- trunk/libpod-simple-perl/lib/Pod/Simple/PullParserEndToken.pm (original)
+++ trunk/libpod-simple-perl/lib/Pod/Simple/PullParserEndToken.pm Sun May 2 02:37:11 2010
@@ -5,7 +5,7 @@
use strict;
use vars qw(@ISA $VERSION);
@ISA = ('Pod::Simple::PullParserToken');
-$VERSION = '3.13';
+$VERSION = '3.14';
sub new { # Class->new(tagname);
my $class = shift;
Modified: trunk/libpod-simple-perl/lib/Pod/Simple/PullParserStartToken.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpod-simple-perl/lib/Pod/Simple/PullParserStartToken.pm?rev=57289&op=diff
==============================================================================
--- trunk/libpod-simple-perl/lib/Pod/Simple/PullParserStartToken.pm (original)
+++ trunk/libpod-simple-perl/lib/Pod/Simple/PullParserStartToken.pm Sun May 2 02:37:11 2010
@@ -5,7 +5,7 @@
use strict;
use vars qw(@ISA $VERSION);
@ISA = ('Pod::Simple::PullParserToken');
-$VERSION = '3.13';
+$VERSION = '3.14';
sub new { # Class->new(tagname, optional_attrhash);
my $class = shift;
Modified: trunk/libpod-simple-perl/lib/Pod/Simple/PullParserTextToken.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpod-simple-perl/lib/Pod/Simple/PullParserTextToken.pm?rev=57289&op=diff
==============================================================================
--- trunk/libpod-simple-perl/lib/Pod/Simple/PullParserTextToken.pm (original)
+++ trunk/libpod-simple-perl/lib/Pod/Simple/PullParserTextToken.pm Sun May 2 02:37:11 2010
@@ -5,7 +5,7 @@
use strict;
use vars qw(@ISA $VERSION);
@ISA = ('Pod::Simple::PullParserToken');
-$VERSION = '3.13';
+$VERSION = '3.14';
sub new { # Class->new(text);
my $class = shift;
Modified: trunk/libpod-simple-perl/lib/Pod/Simple/PullParserToken.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpod-simple-perl/lib/Pod/Simple/PullParserToken.pm?rev=57289&op=diff
==============================================================================
--- trunk/libpod-simple-perl/lib/Pod/Simple/PullParserToken.pm (original)
+++ trunk/libpod-simple-perl/lib/Pod/Simple/PullParserToken.pm Sun May 2 02:37:11 2010
@@ -3,7 +3,7 @@
package Pod::Simple::PullParserToken;
# Base class for tokens gotten from Pod::Simple::PullParser's $parser->get_token
@ISA = ();
-$VERSION = '3.13';
+$VERSION = '3.14';
use strict;
sub new { # Class->new('type', stuff...); ## Overridden in derived classes anyway
Modified: trunk/libpod-simple-perl/lib/Pod/Simple/RTF.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpod-simple-perl/lib/Pod/Simple/RTF.pm?rev=57289&op=diff
==============================================================================
--- trunk/libpod-simple-perl/lib/Pod/Simple/RTF.pm (original)
+++ trunk/libpod-simple-perl/lib/Pod/Simple/RTF.pm Sun May 2 02:37:11 2010
@@ -8,7 +8,7 @@
use strict;
use vars qw($VERSION @ISA %Escape $WRAP %Tagmap);
-$VERSION = '3.13';
+$VERSION = '3.14';
use Pod::Simple::PullParser ();
BEGIN {@ISA = ('Pod::Simple::PullParser')}
Modified: trunk/libpod-simple-perl/lib/Pod/Simple/Search.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpod-simple-perl/lib/Pod/Simple/Search.pm?rev=57289&op=diff
==============================================================================
--- trunk/libpod-simple-perl/lib/Pod/Simple/Search.pm (original)
+++ trunk/libpod-simple-perl/lib/Pod/Simple/Search.pm Sun May 2 02:37:11 2010
@@ -4,7 +4,7 @@
use strict;
use vars qw($VERSION $MAX_VERSION_WITHIN $SLEEPY);
-$VERSION = '3.13'; ## Current version of this package
+$VERSION = '3.14'; ## Current version of this package
BEGIN { *DEBUG = sub () {0} unless defined &DEBUG; } # set DEBUG level
use Carp ();
Modified: trunk/libpod-simple-perl/lib/Pod/Simple/SimpleTree.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpod-simple-perl/lib/Pod/Simple/SimpleTree.pm?rev=57289&op=diff
==============================================================================
--- trunk/libpod-simple-perl/lib/Pod/Simple/SimpleTree.pm (original)
+++ trunk/libpod-simple-perl/lib/Pod/Simple/SimpleTree.pm Sun May 2 02:37:11 2010
@@ -6,7 +6,7 @@
use Carp ();
use Pod::Simple ();
use vars qw( $ATTR_PAD @ISA $VERSION $SORT_ATTRS);
-$VERSION = '3.13';
+$VERSION = '3.14';
BEGIN {
@ISA = ('Pod::Simple');
*DEBUG = \&Pod::Simple::DEBUG unless defined &DEBUG;
Modified: trunk/libpod-simple-perl/lib/Pod/Simple/Text.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpod-simple-perl/lib/Pod/Simple/Text.pm?rev=57289&op=diff
==============================================================================
--- trunk/libpod-simple-perl/lib/Pod/Simple/Text.pm (original)
+++ trunk/libpod-simple-perl/lib/Pod/Simple/Text.pm Sun May 2 02:37:11 2010
@@ -6,7 +6,7 @@
use Pod::Simple::Methody ();
use Pod::Simple ();
use vars qw( @ISA $VERSION $FREAKYMODE);
-$VERSION = '3.13';
+$VERSION = '3.14';
@ISA = ('Pod::Simple::Methody');
BEGIN { *DEBUG = defined(&Pod::Simple::DEBUG)
? \&Pod::Simple::DEBUG
Modified: trunk/libpod-simple-perl/lib/Pod/Simple/TextContent.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpod-simple-perl/lib/Pod/Simple/TextContent.pm?rev=57289&op=diff
==============================================================================
--- trunk/libpod-simple-perl/lib/Pod/Simple/TextContent.pm (original)
+++ trunk/libpod-simple-perl/lib/Pod/Simple/TextContent.pm Sun May 2 02:37:11 2010
@@ -6,7 +6,7 @@
use Carp ();
use Pod::Simple ();
use vars qw( @ISA $VERSION );
-$VERSION = '3.13';
+$VERSION = '3.14';
@ISA = ('Pod::Simple');
sub new {
Modified: trunk/libpod-simple-perl/lib/Pod/Simple/TiedOutFH.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpod-simple-perl/lib/Pod/Simple/TiedOutFH.pm?rev=57289&op=diff
==============================================================================
--- trunk/libpod-simple-perl/lib/Pod/Simple/TiedOutFH.pm (original)
+++ trunk/libpod-simple-perl/lib/Pod/Simple/TiedOutFH.pm Sun May 2 02:37:11 2010
@@ -4,7 +4,7 @@
use Symbol ('gensym');
use Carp ();
use vars qw($VERSION );
-$VERSION = '3.13';
+$VERSION = '3.14';
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Modified: trunk/libpod-simple-perl/lib/Pod/Simple/Transcode.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpod-simple-perl/lib/Pod/Simple/Transcode.pm?rev=57289&op=diff
==============================================================================
--- trunk/libpod-simple-perl/lib/Pod/Simple/Transcode.pm (original)
+++ trunk/libpod-simple-perl/lib/Pod/Simple/Transcode.pm Sun May 2 02:37:11 2010
@@ -2,7 +2,7 @@
require 5;
package Pod::Simple::Transcode;
use vars qw($VERSION );
-$VERSION = '3.13';
+$VERSION = '3.14';
BEGIN {
if(defined &DEBUG) {;} # Okay
Modified: trunk/libpod-simple-perl/lib/Pod/Simple/TranscodeDumb.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpod-simple-perl/lib/Pod/Simple/TranscodeDumb.pm?rev=57289&op=diff
==============================================================================
--- trunk/libpod-simple-perl/lib/Pod/Simple/TranscodeDumb.pm (original)
+++ trunk/libpod-simple-perl/lib/Pod/Simple/TranscodeDumb.pm Sun May 2 02:37:11 2010
@@ -5,7 +5,7 @@
package Pod::Simple::TranscodeDumb;
use strict;
use vars qw($VERSION %Supported);
-$VERSION = '3.13';
+$VERSION = '3.14';
# This module basically pretends it knows how to transcode, except
# only for null-transcodings! We use this when Encode isn't
# available.
Modified: trunk/libpod-simple-perl/lib/Pod/Simple/TranscodeSmart.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpod-simple-perl/lib/Pod/Simple/TranscodeSmart.pm?rev=57289&op=diff
==============================================================================
--- trunk/libpod-simple-perl/lib/Pod/Simple/TranscodeSmart.pm (original)
+++ trunk/libpod-simple-perl/lib/Pod/Simple/TranscodeSmart.pm Sun May 2 02:37:11 2010
@@ -9,7 +9,7 @@
use Pod::Simple;
require Encode;
use vars qw($VERSION );
-$VERSION = '3.13';
+$VERSION = '3.14';
sub is_dumb {0}
sub is_smart {1}
Modified: trunk/libpod-simple-perl/lib/Pod/Simple/XHTML.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpod-simple-perl/lib/Pod/Simple/XHTML.pm?rev=57289&op=diff
==============================================================================
--- trunk/libpod-simple-perl/lib/Pod/Simple/XHTML.pm (original)
+++ trunk/libpod-simple-perl/lib/Pod/Simple/XHTML.pm Sun May 2 02:37:11 2010
@@ -28,7 +28,7 @@
package Pod::Simple::XHTML;
use strict;
use vars qw( $VERSION @ISA $HAS_HTML_ENTITIES );
-$VERSION = '3.13';
+$VERSION = '3.14';
use Carp ();
use Pod::Simple::Methody ();
@ISA = ('Pod::Simple::Methody');
Modified: trunk/libpod-simple-perl/lib/Pod/Simple/XMLOutStream.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpod-simple-perl/lib/Pod/Simple/XMLOutStream.pm?rev=57289&op=diff
==============================================================================
--- trunk/libpod-simple-perl/lib/Pod/Simple/XMLOutStream.pm (original)
+++ trunk/libpod-simple-perl/lib/Pod/Simple/XMLOutStream.pm Sun May 2 02:37:11 2010
@@ -5,7 +5,7 @@
use Carp ();
use Pod::Simple ();
use vars qw( $ATTR_PAD @ISA $VERSION $SORT_ATTRS);
-$VERSION = '3.13';
+$VERSION = '3.14';
BEGIN {
@ISA = ('Pod::Simple');
*DEBUG = \&Pod::Simple::DEBUG unless defined &DEBUG;
Modified: trunk/libpod-simple-perl/t/fcodes.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpod-simple-perl/t/fcodes.t?rev=57289&op=diff
==============================================================================
--- trunk/libpod-simple-perl/t/fcodes.t (original)
+++ trunk/libpod-simple-perl/t/fcodes.t Sun May 2 02:37:11 2010
@@ -7,7 +7,7 @@
use strict;
use Test;
-BEGIN { plan tests => 21 };
+BEGIN { plan tests => 23 };
#use Pod::Simple::Debug (5);
@@ -81,22 +81,28 @@
print "# Without any nesting, but with Z's, and odder whitespace...\n";
ok( Pod::Simple::XMLOutStream->_out("=pod\n\nF<< aZ<> >>C<<< Z<>b >>>I<<<< c >>>>B<< d \t >>X<<\ne >>\n"),
- '<Document><Para><F>aZ<></F><C>Z<>b</C><I>c</I><B>d</B><X>e</X></Para></Document>'
+ '<Document><Para><F>a</F><C>b</C><I>c</I><B>d</B><X>e</X></Para></Document>'
);
print "# With nesting and Z's, and odder whitespace...\n";
ok( Pod::Simple::XMLOutStream->_out("=pod\n\nF<< aZ<> >>C<<< Z<>bZ<>B<< d \t >>X<<\ne >> >>>I<<<< c >>>>\n"),
- "<Document><Para><F>aZ<></F><C>Z<>bZ<>B<< d >>X<< e >></C><I>c</I></Para></Document>"
+ "<Document><Para><F>a</F><C>b<B>d</B><X>e</X></C><I>c</I></Para></Document>"
);
-print "# Regression https://rt.cpan.org/Ticket/Display.html?id=12239\n";
+print "# Regression https://rt.cpan.org/Ticket/Display.html?id=55602 (vs 12239)\n";
ok( Pod::Simple::XMLOutStream->_out("=pod\n\nC<<< foo->bar >>>\n"),
'<Document><Para><C>foo->bar</C></Para></Document>'
);
ok( Pod::Simple::XMLOutStream->_out("=pod\n\nC<<< C<foo> >>>\n"),
- '<Document><Para><C>C<foo></C></Para></Document>'
+ '<Document><Para><C><C>foo</C></C></Para></Document>'
);
ok( Pod::Simple::XMLOutStream->_out("=pod\n\nC<<< C<<foo>> >>>\n"),
+ '<Document><Para><C><C><foo</C>></C></Para></Document>'
+);
+ok( Pod::Simple::XMLOutStream->_out("=pod\n\nC<<< CZ<><<foo>> >>>\n"),
+ '<Document><Para><C>C<<foo>></C></Para></Document>'
+);
+ok( Pod::Simple::XMLOutStream->_out("=pod\n\nC<<< CE<lt><foo>> >>>\n"),
'<Document><Para><C>C<<foo>></C></Para></Document>'
);
Modified: trunk/libpod-simple-perl/t/fcodes_l.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpod-simple-perl/t/fcodes_l.t?rev=57289&op=diff
==============================================================================
--- trunk/libpod-simple-perl/t/fcodes_l.t (original)
+++ trunk/libpod-simple-perl/t/fcodes_l.t Sun May 2 02:37:11 2010
@@ -337,32 +337,32 @@
ok( $x->_out(qq{=pod\n\nL<< Perl B<<< Error E<77>essages >>>|perldiag >>\n}),
- '<Document><Para><L content-implicit="yes" section="Perl B<<< Error E<77>essages" type="pod">"Perl B<<< Error E<77>essages"</L>>|perldiag >></Para></Document>',
+ '<Document><Para><L to="perldiag" type="pod">Perl <B>Error Messages</B></L></Para></Document>'
);
ok( $x->_out(qq{=pod\n\nL<< Perl\nB<<< Error\nE<77>essages >>>|perldiag >>\n}),
- '<Document><Para><L content-implicit="yes" section="Perl B<<< Error E<77>essages" type="pod">"Perl B<<< Error E<77>essages"</L>>|perldiag >></Para></Document>'
+ '<Document><Para><L to="perldiag" type="pod">Perl <B>Error Messages</B></L></Para></Document>'
);
ok( $x->_out(qq{=pod\n\nL<< Perl\nB<<< Error\t E<77>essages >>>|perldiag >>\n}),
- '<Document><Para><L content-implicit="yes" section="Perl B<<< Error E<77>essages" type="pod">"Perl B<<< Error E<77>essages"</L>>|perldiag >></Para></Document>'
+ '<Document><Para><L to="perldiag" type="pod">Perl <B>Error Messages</B></L></Para></Document>'
);
ok( $x->_out(qq{=pod\n\nL<< SWITCH B<<< E<115>tatements >>>|perlsyn/"Basic I<<<< BLOCKs >>>> and Switch StatementE<115>" >>\n}),
- '<Document><Para><L content-implicit="yes" section="SWITCH B<<< E<115>tatements" type="pod">"SWITCH B<<< E<115>tatements"</L>>|perlsyn/"Basic <I>BLOCKs</I> and Switch Statements" >></Para></Document>'
+ '<Document><Para><L section="Basic BLOCKs and Switch Statements" to="perlsyn" type="pod">SWITCH <B>statements</B></L></Para></Document>'
);
ok( $x->_out(qq{=pod\n\nL<< SWITCH B<<< E<115>tatements >>>|perlsyn/Basic I<<<< BLOCKs >>>> and Switch StatementE<115> >>\n}),
- '<Document><Para><L content-implicit="yes" section="SWITCH B<<< E<115>tatements" type="pod">"SWITCH B<<< E<115>tatements"</L>>|perlsyn/Basic <I>BLOCKs</I> and Switch Statements >></Para></Document>'
+ '<Document><Para><L section="Basic BLOCKs and Switch Statements" to="perlsyn" type="pod">SWITCH <B>statements</B></L></Para></Document>'
);
ok( $x->_out(qq{=pod\n\nL<<< the F<< various >> attributes|/"Member Data" >>>\n}),
- '<Document><Para><L section="Member Data" type="pod">the F<< various >> attributes</L></Para></Document>'
+ '<Document><Para><L section="Member Data" type="pod">the <F>various</F> attributes</L></Para></Document>'
);
ok( $x->_out(qq{=pod\n\nL<<< the F<< various >> attributes|/Member Data >>>\n}),
- '<Document><Para><L section="Member Data" type="pod">the F<< various >> attributes</L></Para></Document>'
+ '<Document><Para><L section="Member Data" type="pod">the <F>various</F> attributes</L></Para></Document>'
);
ok( $x->_out(qq{=pod\n\nL<<< the F<< various >> attributes|"Member Data" >>>\n}),
- '<Document><Para><L section="Member Data" type="pod">the F<< various >> attributes</L></Para></Document>'
+ '<Document><Para><L section="Member Data" type="pod">the <F>various</F> attributes</L></Para></Document>'
);
###########################################################################
@@ -371,51 +371,51 @@
ok( $x->_out(qq{=pod\n\nI like L<< Perl B<<< Error E<77>essages >>>|perldiag >>.\n}),
- '<Document><Para>I like <L content-implicit="yes" section="Perl B<<< Error E<77>essages" type="pod">"Perl B<<< Error E<77>essages"</L>>|perldiag >>.</Para></Document>'
+ '<Document><Para>I like <L to="perldiag" type="pod">Perl <B>Error Messages</B></L>.</Para></Document>'
);
ok( $x->_out(qq{=pod\n\nI like L<< Perl\nB<<< Error\nE<77>essages >>>|perldiag >>.\n}),
- '<Document><Para>I like <L content-implicit="yes" section="Perl B<<< Error E<77>essages" type="pod">"Perl B<<< Error E<77>essages"</L>>|perldiag >>.</Para></Document>'
+ '<Document><Para>I like <L to="perldiag" type="pod">Perl <B>Error Messages</B></L>.</Para></Document>'
);
ok( $x->_out(qq{=pod\n\nI like L<< Perl\nB<<< Error\t E<77>essages >>>|perldiag >>.\n}),
- '<Document><Para>I like <L content-implicit="yes" section="Perl B<<< Error E<77>essages" type="pod">"Perl B<<< Error E<77>essages"</L>>|perldiag >>.</Para></Document>'
+ '<Document><Para>I like <L to="perldiag" type="pod">Perl <B>Error Messages</B></L>.</Para></Document>'
);
ok( $x->_out(qq{=pod\n\nI like L<< SWITCH B<<< E<115>tatements >>>|perlsyn/"Basic I<<<< BLOCKs >>>> and Switch StatementE<115>" >>.\n}),
- '<Document><Para>I like <L content-implicit="yes" section="SWITCH B<<< E<115>tatements" type="pod">"SWITCH B<<< E<115>tatements"</L>>|perlsyn/"Basic <I>BLOCKs</I> and Switch Statements" >>.</Para></Document>'
+ '<Document><Para>I like <L section="Basic BLOCKs and Switch Statements" to="perlsyn" type="pod">SWITCH <B>statements</B></L>.</Para></Document>'
);
ok( $x->_out(qq{=pod\n\nI like L<< SWITCH B<<< E<115>tatements >>>|perlsyn/Basic I<<<< BLOCKs >>>> and Switch StatementE<115> >>.\n}),
- '<Document><Para>I like <L content-implicit="yes" section="SWITCH B<<< E<115>tatements" type="pod">"SWITCH B<<< E<115>tatements"</L>>|perlsyn/Basic <I>BLOCKs</I> and Switch Statements >>.</Para></Document>'
+ '<Document><Para>I like <L section="Basic BLOCKs and Switch Statements" to="perlsyn" type="pod">SWITCH <B>statements</B></L>.</Para></Document>'
);
ok( $x->_out(qq{=pod\n\nI like L<<< the F<< various >> attributes|/"Member Data" >>>.\n}),
- '<Document><Para>I like <L section="Member Data" type="pod">the F<< various >> attributes</L>.</Para></Document>'
+ '<Document><Para>I like <L section="Member Data" type="pod">the <F>various</F> attributes</L>.</Para></Document>'
);
ok( $x->_out(qq{=pod\n\nI like L<<< the F<< various >> attributes|/Member Data >>>.\n}),
- '<Document><Para>I like <L section="Member Data" type="pod">the F<< various >> attributes</L>.</Para></Document>'
+ '<Document><Para>I like <L section="Member Data" type="pod">the <F>various</F> attributes</L>.</Para></Document>'
);
ok( $x->_out(qq{=pod\n\nI like L<<< the F<< various >> attributes|"Member Data" >>>.\n}),
- '<Document><Para>I like <L section="Member Data" type="pod">the F<< various >> attributes</L>.</Para></Document>'
+ '<Document><Para>I like <L section="Member Data" type="pod">the <F>various</F> attributes</L>.</Para></Document>'
);
ok( $x->_out(qq{=pod\n\nI like L<<< B<text>s|http://text.com >>>.\n}),
-'<Document><Para>I like <L to="http://text.com" type="url">B<text>s</L>.</Para></Document>'
+'<Document><Para>I like <L to="http://text.com" type="url"><B>text</B>s</L>.</Para></Document>'
);
ok( $x->_out(qq{=pod\n\nI like L<<< text|https://text.com/1/2 >>>.\n}),
'<Document><Para>I like <L to="https://text.com/1/2" type="url">text</L>.</Para></Document>'
);
ok( $x->_out(qq{=pod\n\nI like L<<< I<text>|http://text.com >>>.\n}),
-'<Document><Para>I like <L to="http://text.com" type="url">I<text></L>.</Para></Document>'
+'<Document><Para>I like <L to="http://text.com" type="url"><I>text</I></L>.</Para></Document>'
);
ok( $x->_out(qq{=pod\n\nI like L<<< C<text>|http://text.com >>>.\n}),
-'<Document><Para>I like <L to="http://text.com" type="url">C<text></L>.</Para></Document>'
+'<Document><Para>I like <L to="http://text.com" type="url"><C>text</C></L>.</Para></Document>'
);
ok( $x->_out(qq{=pod\n\nI like L<<< I<tI<eI<xI<t>>>>|mailto:earlE<64>text.com >>>.\n}),
-'<Document><Para>I like <L to="mailto:earlE<64>text.com" type="url">I<tI<eI<xI<t>>>></L>.</Para></Document>'
+'<Document><Para>I like <L to="mailto:earl at text.com" type="url"><I>t<I>e<I>x<I>t</I></I></I></I></L>.</Para></Document>'
);
ok( $x->_out(qq{=pod\n\nI like L<<< textZ<>|http://text.com >>>.\n}),
-'<Document><Para>I like <L to="http://text.com" type="url">textZ<></L>.</Para></Document>'
+'<Document><Para>I like <L to="http://text.com" type="url">text</L>.</Para></Document>'
);
Modified: trunk/libpod-simple-perl/t/fcodes_s.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpod-simple-perl/t/fcodes_s.t?rev=57289&op=diff
==============================================================================
--- trunk/libpod-simple-perl/t/fcodes_s.t (original)
+++ trunk/libpod-simple-perl/t/fcodes_s.t Sun May 2 02:37:11 2010
@@ -83,7 +83,7 @@
# RT#25679
ok(
$x->_out(<<END
-=head1 The Tk::mega manpage showed me how C<< S< > foo >> is being rendered
+=head1 The Tk::mega manpage showed me how C<< SE<lt> > foo >> is being rendered
Both pod2text and pod2man S< > lose the rest of the line
Modified: trunk/libpod-simple-perl/t/stree.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpod-simple-perl/t/stree.t?rev=57289&op=diff
==============================================================================
--- trunk/libpod-simple-perl/t/stree.t (original)
+++ trunk/libpod-simple-perl/t/stree.t Sun May 2 02:37:11 2010
@@ -125,7 +125,6 @@
return '' if ref($_[0]) ne ref($_[1]); # unequal referentiality
return $_[0] eq $_[1] unless ref $_[0];
# So it's a ref:
- use UNIVERSAL;
if(UNIVERSAL::isa($_[0], 'ARRAY')) {
return '' unless @{$_[0]} == @{$_[1]};
for(my $i = 0; $i < @{$_[0]}; $i++) {
More information about the Pkg-perl-cvs-commits
mailing list