diff options
| author | Nicholas Clark <nick@ccl4.org> | 2012-01-24 16:08:37 +0100 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2012-01-31 11:20:23 +0100 |
| commit | ce2c4022574ff4cd4bd2e299703ac672a7ec6107 (patch) | |
| tree | 432e1514f7b0ce647134ca7df9115ac2998808f6 /lib/diagnostics.pm | |
| parent | 3673acb0ce592432c7547e7ee9d7e5667a2f7bb2 (diff) | |
| download | perl-ce2c4022574ff4cd4bd2e299703ac672a7ec6107.tar.gz | |
diagnostics doesn't need to search for perldelta.pod in pre-5.005 locations.
Pods are installed into privlib. Before Perl 5.005, privlib didn't contain
the version number in it, so 5.004 and 5.003 (etc) both installed to the same
directory. perldiag.pod differed in not-quite compatible ways, so hacks were
put in to (a) also install it in privlib with the version number in the
filename (b) to hard link it to archlib, which always did contain the version
number.
5.005 changed privlib to contain the version number, solving the underlying
problem (strictly commit bfb7748a896459cc, described here:
http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/1998-07/msg00136.html )
Commit a841533b5cf319b3 (Oct 2009) removed the first installation hack,
Commit e8ea61279d90dbe9 (Jul 1998) removed the second.
Hence the code to search in the "hacked" locations is no longer needed,
and in the interests of clarity, should go.
Diffstat (limited to 'lib/diagnostics.pm')
| -rw-r--r-- | lib/diagnostics.pm | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/lib/diagnostics.pm b/lib/diagnostics.pm index a1841cf90b..dfb05c7217 100644 --- a/lib/diagnostics.pm +++ b/lib/diagnostics.pm @@ -186,7 +186,7 @@ use 5.009001; use Carp; $Carp::Internal{__PACKAGE__.""}++; -our $VERSION = '1.27'; +our $VERSION = '1.28'; our $DEBUG; our $VERBOSE; our $PRETTY; @@ -194,18 +194,13 @@ our $TRACEONLY = 0; our $WARNTRACE = 0; use Config; -my($privlib, $archlib) = @Config{qw(privlibexp archlibexp)}; +my $privlib = $Config{privlibexp}; if ($^O eq 'VMS') { require VMS::Filespec; $privlib = VMS::Filespec::unixify($privlib); - $archlib = VMS::Filespec::unixify($archlib); } my @trypod = ( - "$archlib/pod/perldiag.pod", - "$privlib/pod/perldiag-$Config{version}.pod", "$privlib/pod/perldiag.pod", - "$archlib/pods/perldiag.pod", - "$privlib/pods/perldiag-$Config{version}.pod", "$privlib/pods/perldiag.pod", ); # handy for development testing of new warnings etc |