diff --git a/ChangeLog b/ChangeLog
index 0fe203e4..c556ebdc 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -26,7 +26,7 @@
 	already decoded from octets into characters. Grant McLean.
 
 2012-05-27   David E. Wheeler <david@justatheory.org>
-	* Release 3.22
+	* Release 3.23
 
 	Fix but where Pod::Simple would whine about non-ASCII bytes in
 	code or comments. Now only does so for Pod (in the absence of an
diff --git a/README b/README
index 5fab2f54..be1517c5 100644
--- a/README
+++ b/README
@@ -1,4 +1,4 @@
-=head1 Pod::Simple version 3.22
+=head1 Pod::Simple version 3.23
 
 Pod::Simple is a Perl library for parsing text in the Pod ("plain old
 documentation") markup language that is typically used for writing
diff --git a/lib/Pod/Simple.pm b/lib/Pod/Simple.pm
index 93b2c8f9..fead5b52 100644
--- a/lib/Pod/Simple.pm
+++ b/lib/Pod/Simple.pm
@@ -18,7 +18,7 @@ use vars qw(
 );
 
 @ISA = ('Pod::Simple::BlackBox');
-$VERSION = '3.22';
+$VERSION = '3.23';
 
 @Known_formatting_codes = qw(I B C L E F S X Z); 
 %Known_formatting_codes = map(($_=>1), @Known_formatting_codes);
diff --git a/lib/Pod/Simple/BlackBox.pm b/lib/Pod/Simple/BlackBox.pm
index 8bd12d27..d3878f82 100644
--- a/lib/Pod/Simple/BlackBox.pm
+++ b/lib/Pod/Simple/BlackBox.pm
@@ -23,7 +23,7 @@ use integer; # vroom!
 use strict;
 use Carp ();
 use vars qw($VERSION );
-$VERSION = '3.22';
+$VERSION = '3.23';
 #use constant DEBUG => 7;
 BEGIN {
   require Pod::Simple;
diff --git a/lib/Pod/Simple/Checker.pm b/lib/Pod/Simple/Checker.pm
index 64a8740a..42c942ac 100644
--- a/lib/Pod/Simple/Checker.pm
+++ b/lib/Pod/Simple/Checker.pm
@@ -9,7 +9,7 @@ use Carp ();
 use Pod::Simple::Methody ();
 use Pod::Simple ();
 use vars qw( @ISA $VERSION );
-$VERSION = '3.22';
+$VERSION = '3.23';
 @ISA = ('Pod::Simple::Methody');
 BEGIN { *DEBUG = defined(&Pod::Simple::DEBUG)
           ? \&Pod::Simple::DEBUG
diff --git a/lib/Pod/Simple/Debug.pm b/lib/Pod/Simple/Debug.pm
index 2230c8d8..d9bd4e43 100644
--- a/lib/Pod/Simple/Debug.pm
+++ b/lib/Pod/Simple/Debug.pm
@@ -3,7 +3,7 @@ require 5;
 package Pod::Simple::Debug;
 use strict;
 use vars qw($VERSION );
-$VERSION = '3.22';
+$VERSION = '3.23';
 
 sub import {
   my($value,$variable);
diff --git a/lib/Pod/Simple/DumpAsText.pm b/lib/Pod/Simple/DumpAsText.pm
index e7f72455..c86d4ebd 100644
--- a/lib/Pod/Simple/DumpAsText.pm
+++ b/lib/Pod/Simple/DumpAsText.pm
@@ -1,7 +1,7 @@
 
 require 5;
 package Pod::Simple::DumpAsText;
-$VERSION = '3.22';
+$VERSION = '3.23';
 use Pod::Simple ();
 BEGIN {@ISA = ('Pod::Simple')}
 
diff --git a/lib/Pod/Simple/DumpAsXML.pm b/lib/Pod/Simple/DumpAsXML.pm
index f467f430..576ca7d3 100644
--- a/lib/Pod/Simple/DumpAsXML.pm
+++ b/lib/Pod/Simple/DumpAsXML.pm
@@ -1,7 +1,7 @@
 
 require 5;
 package Pod::Simple::DumpAsXML;
-$VERSION = '3.22';
+$VERSION = '3.23';
 use Pod::Simple ();
 BEGIN {@ISA = ('Pod::Simple')}
 
diff --git a/lib/Pod/Simple/HTML.pm b/lib/Pod/Simple/HTML.pm
index 9bebf5db..528581e2 100644
--- a/lib/Pod/Simple/HTML.pm
+++ b/lib/Pod/Simple/HTML.pm
@@ -10,7 +10,7 @@ use vars qw(
   $Doctype_decl  $Content_decl
 );
 @ISA = ('Pod::Simple::PullParser');
-$VERSION = '3.22';
+$VERSION = '3.23';
 
 BEGIN {
   if(defined &DEBUG) { } # no-op
diff --git a/lib/Pod/Simple/HTMLBatch.pm b/lib/Pod/Simple/HTMLBatch.pm
index 9d322848..70e28edc 100644
--- a/lib/Pod/Simple/HTMLBatch.pm
+++ b/lib/Pod/Simple/HTMLBatch.pm
@@ -5,7 +5,7 @@ use strict;
 use vars qw( $VERSION $HTML_RENDER_CLASS $HTML_EXTENSION
  $CSS $JAVASCRIPT $SLEEPY $SEARCH_CLASS @ISA
 );
-$VERSION = '3.22';
+$VERSION = '3.23';
 @ISA = ();  # Yup, we're NOT a subclass of Pod::Simple::HTML!
 
 # TODO: nocontents stylesheets. Strike some of the color variations?
diff --git a/lib/Pod/Simple/LinkSection.pm b/lib/Pod/Simple/LinkSection.pm
index b548c9c3..fb80a59b 100644
--- a/lib/Pod/Simple/LinkSection.pm
+++ b/lib/Pod/Simple/LinkSection.pm
@@ -3,12 +3,12 @@ require 5;
 package Pod::Simple::LinkSection;
   # Based somewhat dimly on Array::Autojoin
 use vars qw($VERSION );
-$VERSION = '3.22';
+$VERSION = '3.23';
 
 use strict;
 use Pod::Simple::BlackBox;
 use vars qw($VERSION );
-$VERSION = '3.22';
+$VERSION = '3.23';
 
 use overload( # So it'll stringify nice
   '""'   => \&Pod::Simple::BlackBox::stringify_lol,
diff --git a/lib/Pod/Simple/Methody.pm b/lib/Pod/Simple/Methody.pm
index 085ee460..2f6a5282 100644
--- a/lib/Pod/Simple/Methody.pm
+++ b/lib/Pod/Simple/Methody.pm
@@ -4,7 +4,7 @@ package Pod::Simple::Methody;
 use strict;
 use Pod::Simple ();
 use vars qw(@ISA $VERSION);
-$VERSION = '3.22';
+$VERSION = '3.23';
 @ISA = ('Pod::Simple');
 
 # Yes, we could use named variables, but I want this to be impose
diff --git a/lib/Pod/Simple/Progress.pm b/lib/Pod/Simple/Progress.pm
index e87feb18..9c0e9d9c 100644
--- a/lib/Pod/Simple/Progress.pm
+++ b/lib/Pod/Simple/Progress.pm
@@ -1,7 +1,7 @@
 
 require 5;
 package Pod::Simple::Progress;
-$VERSION = '3.22';
+$VERSION = '3.23';
 use strict;
 
 # Objects of this class are used for noting progress of an
diff --git a/lib/Pod/Simple/PullParser.pm b/lib/Pod/Simple/PullParser.pm
index bacfb4bb..053fbf33 100644
--- a/lib/Pod/Simple/PullParser.pm
+++ b/lib/Pod/Simple/PullParser.pm
@@ -1,7 +1,7 @@
 
 require 5;
 package Pod::Simple::PullParser;
-$VERSION = '3.22';
+$VERSION = '3.23';
 use Pod::Simple ();
 BEGIN {@ISA = ('Pod::Simple')}
 
diff --git a/lib/Pod/Simple/PullParserEndToken.pm b/lib/Pod/Simple/PullParserEndToken.pm
index d4e2364b..aaa5796b 100644
--- a/lib/Pod/Simple/PullParserEndToken.pm
+++ b/lib/Pod/Simple/PullParserEndToken.pm
@@ -5,7 +5,7 @@ use Pod::Simple::PullParserToken ();
 use strict;
 use vars qw(@ISA $VERSION);
 @ISA = ('Pod::Simple::PullParserToken');
-$VERSION = '3.22';
+$VERSION = '3.23';
 
 sub new {  # Class->new(tagname);
   my $class = shift;
diff --git a/lib/Pod/Simple/PullParserStartToken.pm b/lib/Pod/Simple/PullParserStartToken.pm
index 44a7d578..ee4c4849 100644
--- a/lib/Pod/Simple/PullParserStartToken.pm
+++ b/lib/Pod/Simple/PullParserStartToken.pm
@@ -5,7 +5,7 @@ use Pod::Simple::PullParserToken ();
 use strict;
 use vars qw(@ISA $VERSION);
 @ISA = ('Pod::Simple::PullParserToken');
-$VERSION = '3.22';
+$VERSION = '3.23';
 
 sub new {  # Class->new(tagname, optional_attrhash);
   my $class = shift;
diff --git a/lib/Pod/Simple/PullParserTextToken.pm b/lib/Pod/Simple/PullParserTextToken.pm
index 92ab9d19..872fa258 100644
--- a/lib/Pod/Simple/PullParserTextToken.pm
+++ b/lib/Pod/Simple/PullParserTextToken.pm
@@ -5,7 +5,7 @@ use Pod::Simple::PullParserToken ();
 use strict;
 use vars qw(@ISA $VERSION);
 @ISA = ('Pod::Simple::PullParserToken');
-$VERSION = '3.22';
+$VERSION = '3.23';
 
 sub new {  # Class->new(text);
   my $class = shift;
diff --git a/lib/Pod/Simple/PullParserToken.pm b/lib/Pod/Simple/PullParserToken.pm
index e32787cd..41251886 100644
--- a/lib/Pod/Simple/PullParserToken.pm
+++ b/lib/Pod/Simple/PullParserToken.pm
@@ -3,7 +3,7 @@ require 5;
 package Pod::Simple::PullParserToken;
  # Base class for tokens gotten from Pod::Simple::PullParser's $parser->get_token
 @ISA = ();
-$VERSION = '3.22';
+$VERSION = '3.23';
 use strict;
 
 sub new {  # Class->new('type', stuff...);  ## Overridden in derived classes anyway
diff --git a/lib/Pod/Simple/RTF.pm b/lib/Pod/Simple/RTF.pm
index 77eeef1c..3663d043 100644
--- a/lib/Pod/Simple/RTF.pm
+++ b/lib/Pod/Simple/RTF.pm
@@ -8,7 +8,7 @@ package Pod::Simple::RTF;
 
 use strict;
 use vars qw($VERSION @ISA %Escape $WRAP %Tagmap);
-$VERSION = '3.22';
+$VERSION = '3.23';
 use Pod::Simple::PullParser ();
 BEGIN {@ISA = ('Pod::Simple::PullParser')}
 
diff --git a/lib/Pod/Simple/Search.pm b/lib/Pod/Simple/Search.pm
index 13120c35..79fb37aa 100644
--- a/lib/Pod/Simple/Search.pm
+++ b/lib/Pod/Simple/Search.pm
@@ -4,7 +4,7 @@ package Pod::Simple::Search;
 use strict;
 
 use vars qw($VERSION $MAX_VERSION_WITHIN $SLEEPY);
-$VERSION = '3.22';   ## Current version of this package
+$VERSION = '3.23';   ## Current version of this package
 
 BEGIN { *DEBUG = sub () {0} unless defined &DEBUG; }   # set DEBUG level
 use Carp ();
diff --git a/lib/Pod/Simple/SimpleTree.pm b/lib/Pod/Simple/SimpleTree.pm
index 97319a0b..940c0f34 100644
--- a/lib/Pod/Simple/SimpleTree.pm
+++ b/lib/Pod/Simple/SimpleTree.pm
@@ -6,7 +6,7 @@ use strict;
 use Carp ();
 use Pod::Simple ();
 use vars qw( $ATTR_PAD @ISA $VERSION $SORT_ATTRS);
-$VERSION = '3.22';
+$VERSION = '3.23';
 BEGIN {
   @ISA = ('Pod::Simple');
   *DEBUG = \&Pod::Simple::DEBUG unless defined &DEBUG;
diff --git a/lib/Pod/Simple/Text.pm b/lib/Pod/Simple/Text.pm
index c7f0d4bd..3e0c0228 100644
--- a/lib/Pod/Simple/Text.pm
+++ b/lib/Pod/Simple/Text.pm
@@ -6,7 +6,7 @@ use Carp ();
 use Pod::Simple::Methody ();
 use Pod::Simple ();
 use vars qw( @ISA $VERSION $FREAKYMODE);
-$VERSION = '3.22';
+$VERSION = '3.23';
 @ISA = ('Pod::Simple::Methody');
 BEGIN { *DEBUG = defined(&Pod::Simple::DEBUG)
           ? \&Pod::Simple::DEBUG
diff --git a/lib/Pod/Simple/TextContent.pm b/lib/Pod/Simple/TextContent.pm
index 6ab2b751..758b78f1 100644
--- a/lib/Pod/Simple/TextContent.pm
+++ b/lib/Pod/Simple/TextContent.pm
@@ -6,7 +6,7 @@ use strict;
 use Carp ();
 use Pod::Simple ();
 use vars qw( @ISA $VERSION );
-$VERSION = '3.22';
+$VERSION = '3.23';
 @ISA = ('Pod::Simple');
 
 sub new {
diff --git a/lib/Pod/Simple/TiedOutFH.pm b/lib/Pod/Simple/TiedOutFH.pm
index b8880ce2..3e99202b 100644
--- a/lib/Pod/Simple/TiedOutFH.pm
+++ b/lib/Pod/Simple/TiedOutFH.pm
@@ -4,7 +4,7 @@ package Pod::Simple::TiedOutFH;
 use Symbol ('gensym');
 use Carp ();
 use vars qw($VERSION );
-$VERSION = '3.22';
+$VERSION = '3.23';
 
 #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 
diff --git a/lib/Pod/Simple/Transcode.pm b/lib/Pod/Simple/Transcode.pm
index 0776cf4e..fcaf4e62 100644
--- a/lib/Pod/Simple/Transcode.pm
+++ b/lib/Pod/Simple/Transcode.pm
@@ -2,7 +2,7 @@
 require 5;
 package Pod::Simple::Transcode;
 use vars qw($VERSION );
-$VERSION = '3.22';
+$VERSION = '3.23';
 
 BEGIN {
   if(defined &DEBUG) {;} # Okay
diff --git a/lib/Pod/Simple/TranscodeDumb.pm b/lib/Pod/Simple/TranscodeDumb.pm
index 080386d1..32e98399 100644
--- a/lib/Pod/Simple/TranscodeDumb.pm
+++ b/lib/Pod/Simple/TranscodeDumb.pm
@@ -5,7 +5,7 @@ require 5;
 package Pod::Simple::TranscodeDumb;
 use strict;
 use vars qw($VERSION %Supported);
-$VERSION = '3.22';
+$VERSION = '3.23';
 # This module basically pretends it knows how to transcode, except
 #  only for null-transcodings!  We use this when Encode isn't
 #  available.
diff --git a/lib/Pod/Simple/TranscodeSmart.pm b/lib/Pod/Simple/TranscodeSmart.pm
index 6fb5566a..0dec8b5d 100644
--- a/lib/Pod/Simple/TranscodeSmart.pm
+++ b/lib/Pod/Simple/TranscodeSmart.pm
@@ -9,7 +9,7 @@ use strict;
 use Pod::Simple;
 require Encode;
 use vars qw($VERSION );
-$VERSION = '3.22';
+$VERSION = '3.23';
 
 sub is_dumb  {0}
 sub is_smart {1}
diff --git a/lib/Pod/Simple/XHTML.pm b/lib/Pod/Simple/XHTML.pm
index 4a741e9d..5fd0967f 100644
--- a/lib/Pod/Simple/XHTML.pm
+++ b/lib/Pod/Simple/XHTML.pm
@@ -45,7 +45,7 @@ declare the output character set as UTF-8 before parsing, like so:
 package Pod::Simple::XHTML;
 use strict;
 use vars qw( $VERSION @ISA $HAS_HTML_ENTITIES );
-$VERSION = '3.22';
+$VERSION = '3.23';
 use Pod::Simple::Methody ();
 @ISA = ('Pod::Simple::Methody');
 
diff --git a/lib/Pod/Simple/XMLOutStream.pm b/lib/Pod/Simple/XMLOutStream.pm
index c3a12633..1cbc3368 100644
--- a/lib/Pod/Simple/XMLOutStream.pm
+++ b/lib/Pod/Simple/XMLOutStream.pm
@@ -5,7 +5,7 @@ use strict;
 use Carp ();
 use Pod::Simple ();
 use vars qw( $ATTR_PAD @ISA $VERSION $SORT_ATTRS);
-$VERSION = '3.22';
+$VERSION = '3.23';
 BEGIN {
   @ISA = ('Pod::Simple');
   *DEBUG = \&Pod::Simple::DEBUG unless defined &DEBUG;