diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Pod/Simple/DumpAsText.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/Pod/Simple/DumpAsText.pm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/Master/tlpkg/tlperl/lib/Pod/Simple/DumpAsText.pm b/Master/tlpkg/tlperl/lib/Pod/Simple/DumpAsText.pm index dfde4d66b2c..a2325626f08 100644 --- a/Master/tlpkg/tlperl/lib/Pod/Simple/DumpAsText.pm +++ b/Master/tlpkg/tlperl/lib/Pod/Simple/DumpAsText.pm @@ -1,7 +1,7 @@ require 5; package Pod::Simple::DumpAsText; -$VERSION = '3.29'; +$VERSION = '3.32'; use Pod::Simple (); BEGIN {@ISA = ('Pod::Simple')} @@ -26,7 +26,7 @@ sub _handle_element_start { # ($self, $element_name, $attr_hash_r) my $fh = $_[0]{'output_fh'}; my($key, $value); - DEBUG and print "++ $_[1]\n"; + DEBUG and print STDERR "++ $_[1]\n"; print $fh ' ' x ($_[0]{'indent'} || 0), "++", $_[1], "\n"; $_[0]{'indent'}++; @@ -43,7 +43,7 @@ sub _handle_element_start { } sub _handle_text { - DEBUG and print "== \"$_[1]\"\n"; + DEBUG and print STDERR "== \"$_[1]\"\n"; if(length $_[1]) { my $indent = ' ' x $_[0]{'indent'}; @@ -64,7 +64,7 @@ sub _handle_text { } sub _handle_element_end { - DEBUG and print "-- $_[1]\n"; + DEBUG and print STDERR "-- $_[1]\n"; print {$_[0]{'output_fh'}} ' ' x --$_[0]{'indent'}, "--", $_[1], "\n"; return; @@ -119,8 +119,8 @@ pod-people@perl.org mail list. Send an empty email to pod-people-subscribe@perl.org to subscribe. This module is managed in an open GitHub repository, -L<https://github.com/theory/pod-simple/>. Feel free to fork and contribute, or -to clone L<git://github.com/theory/pod-simple.git> and send patches! +L<https://github.com/perl-pod/pod-simple/>. Feel free to fork and contribute, or +to clone L<git://github.com/perl-pod/pod-simple.git> and send patches! Patches against Pod::Simple are welcome. Please send bug reports to <bug-pod-simple@rt.cpan.org>. |