diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Pod/Perldoc.pm')
| -rw-r--r-- | Master/tlpkg/tlperl/lib/Pod/Perldoc.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/Master/tlpkg/tlperl/lib/Pod/Perldoc.pm b/Master/tlpkg/tlperl/lib/Pod/Perldoc.pm index 654785a1f70..083a6e907e1 100644 --- a/Master/tlpkg/tlperl/lib/Pod/Perldoc.pm +++ b/Master/tlpkg/tlperl/lib/Pod/Perldoc.pm @@ -12,7 +12,7 @@ use File::Spec::Functions qw(catfile catdir splitdir); use vars qw($VERSION @Pagers $Bindir $Pod2man $Temp_Files_Created $Temp_File_Lifetime ); -$VERSION = '3.15_02'; +$VERSION = '3.15_04'; #.......................................................................... BEGIN { # Make a DEBUG constant very first thing... @@ -499,7 +499,7 @@ sub find_good_formatter_class { } else { $^W = 0; # The average user just has no reason to be seeing - # $^W-suppressable warnings from the the require! + # $^W-suppressible warnings from the the require! } eval "require $c"; @@ -746,7 +746,7 @@ sub grand_search_init { for ($i = 0; $trn = $ENV{'DCL$PATH;'.$i}; $i++) { push(@searchdirs,$trn); } - push(@searchdirs,'perl_root:[lib.pod]') # installed pods + push(@searchdirs,'perl_root:[lib.pods]') # installed pods } else { push(@searchdirs, grep(-d, split($Config{path_sep}, @@ -1128,7 +1128,7 @@ sub render_findings { } else { $^W = 0; # The average user just has no reason to be seeing - # $^W-suppressable warnings from the formatting! + # $^W-suppressible warnings from the formatting! } eval { $formatter->parse_from_file( $file, $out_fh ) }; |