summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/Pod/Simple/HTMLBatch.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Pod/Simple/HTMLBatch.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/Pod/Simple/HTMLBatch.pm36
1 files changed, 18 insertions, 18 deletions
diff --git a/Master/tlpkg/tlperl/lib/Pod/Simple/HTMLBatch.pm b/Master/tlpkg/tlperl/lib/Pod/Simple/HTMLBatch.pm
index 19e700b825f..5758645073a 100644
--- a/Master/tlpkg/tlperl/lib/Pod/Simple/HTMLBatch.pm
+++ b/Master/tlpkg/tlperl/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.29';
+$VERSION = '3.32';
@ISA = (); # Yup, we're NOT a subclass of Pod::Simple::HTML!
# TODO: nocontents stylesheets. Strike some of the color variations?
@@ -270,7 +270,7 @@ sub _do_one_batch_conversion {
$self->batch_mode_page_object_kill($page, $module, $infile, $outfile, $depth)
if $self->can('batch_mode_page_object_kill');
- DEBUG > 4 and printf "%s %sb < $infile %s %sb\n",
+ DEBUG > 4 and printf STDERR "%s %sb < $infile %s %sb\n",
$outfile, -s $outfile, $infile, -s $infile
;
@@ -295,7 +295,7 @@ sub note_for_contents_file {
[ join("::", @$namelets), $infile, $outfile, $namelets ]
# 0 1 2 3
;
- DEBUG > 3 and print "Noting @$c[-1]\n";
+ DEBUG > 3 and print STDERR "Noting @$c[-1]\n";
}
return;
}
@@ -446,7 +446,7 @@ sub makepath {
die "$dir exists but not as a directory!?" unless -d $dir;
next;
}
- DEBUG > 3 and print " Making $dir\n";
+ DEBUG > 3 and print STDERR " Making $dir\n";
mkdir $dir, 0777
or die "Can't mkdir $dir: $!\nAborting"
;
@@ -533,7 +533,7 @@ sub modnames2paths { # return a hashref mapping modulenames => paths
my $m2p;
{
my $search = $self->search_class->new;
- DEBUG and print "Searching via $search\n";
+ DEBUG and print STDERR "Searching via $search\n";
$search->verbose(1) if DEBUG > 10;
$search->progress( $self->progress->copy->goal(0) ) if $self->progress;
$search->shadows(0); # don't bother noting shadowed files
@@ -545,13 +545,13 @@ sub modnames2paths { # return a hashref mapping modulenames => paths
$self->muse("That's odd... no modules found!") unless keys %$m2p;
if( DEBUG > 4 ) {
- print "Modules found (name => path):\n";
+ print STDERR "Modules found (name => path):\n";
foreach my $m (sort {lc($a) cmp lc($b)} keys %$m2p) {
- print " $m $$m2p{$m}\n";
+ print STDERR " $m $$m2p{$m}\n";
}
- print "(total ", scalar(keys %$m2p), ")\n\n";
+ print STDERR "(total ", scalar(keys %$m2p), ")\n\n";
} elsif( DEBUG ) {
- print "Found ", scalar(keys %$m2p), " modules.\n";
+ print STDERR "Found ", scalar(keys %$m2p), " modules.\n";
}
$self->muse( "Found ", scalar(keys %$m2p), " modules." );
@@ -566,7 +566,7 @@ sub _wopen {
my($self, $outpath) = @_;
require Symbol;
my $out_fh = Symbol::gensym();
- DEBUG > 5 and print "Write-opening to $outpath\n";
+ DEBUG > 5 and print STDERR "Write-opening to $outpath\n";
return $out_fh if open($out_fh, "> $outpath");
require Carp;
Carp::croak("Can't write-open $outpath: $!");
@@ -608,9 +608,9 @@ sub _spray_css {
my $outfile;
if( ref($chunk->[-1]) and $url =~ m{^(_[-a-z0-9_]+\.css$)} ) {
$outfile = $self->filespecsys->catfile( $outdir, "$1" );
- DEBUG > 5 and print "Noting $$chunk[0] as a file I'll create.\n";
+ DEBUG > 5 and print STDERR "Noting $$chunk[0] as a file I'll create.\n";
} else {
- DEBUG > 5 and print "OK, noting $$chunk[0] as an external CSS.\n";
+ DEBUG > 5 and print STDERR "OK, noting $$chunk[0] as an external CSS.\n";
# Requires no further attention.
next;
}
@@ -620,7 +620,7 @@ sub _spray_css {
print $Cssout ${$chunk->[-1]}
or warn "Couldn't print to $outfile: $!\nAbort writing to $outfile at all";
close($Cssout);
- DEBUG > 5 and print "Wrote $outfile\n";
+ DEBUG > 5 and print STDERR "Wrote $outfile\n";
}
return;
@@ -771,9 +771,9 @@ sub _spray_javascript {
if( ref($script->[-1]) and $url =~ m{^(_[-a-z0-9_]+\.js$)} ) {
$outfile = $self->filespecsys->catfile( $outdir, "$1" );
- DEBUG > 5 and print "Noting $$script[0] as a file I'll create.\n";
+ DEBUG > 5 and print STDERR "Noting $$script[0] as a file I'll create.\n";
} else {
- DEBUG > 5 and print "OK, noting $$script[0] as an external JavaScript.\n";
+ DEBUG > 5 and print STDERR "OK, noting $$script[0] as an external JavaScript.\n";
next;
}
@@ -783,7 +783,7 @@ sub _spray_javascript {
print $Jsout ${$script->[-1]}
or warn "Couldn't print to $outfile: $!\nAbort writing to $outfile at all";
close($Jsout);
- DEBUG > 5 and print "Wrote $outfile\n";
+ DEBUG > 5 and print STDERR "Wrote $outfile\n";
}
return;
@@ -1321,8 +1321,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>.