From 2d42416a02614605eeb3a0729d0e8ba1d00df028 Mon Sep 17 00:00:00 2001 From: "Craig A. Berry" Date: Sun, 15 May 2011 15:34:34 -0500 Subject: [PATCH] Correct perldoc search path for VMS. --- dist/Pod-Perldoc/lib/Pod/Perldoc.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/dist/Pod-Perldoc/lib/Pod/Perldoc.pm b/dist/Pod-Perldoc/lib/Pod/Perldoc.pm index a42ac69..083a6e9 100644 --- a/dist/Pod-Perldoc/lib/Pod/Perldoc.pm +++ b/dist/Pod-Perldoc/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_03'; +$VERSION = '3.15_04'; #.......................................................................... BEGIN { # Make a DEBUG constant very first thing... @@ -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}, -- 2.7.4