diff options
| author | Nicholas Clark <nick@ccl4.org> | 2013-05-25 11:15:47 +0200 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2013-05-25 11:31:59 +0200 |
| commit | 29fd4a042ea14bfb37d7a9d9b7199b05eace39d6 (patch) | |
| tree | c42cdba5cab2732b5344bc447b901ec164c4d848 /lib | |
| parent | 9d0fc219fc1b5651f5b26bd4892e3b4c1123781f (diff) | |
| download | perl-29fd4a042ea14bfb37d7a9d9b7199b05eace39d6.tar.gz | |
In the debugger's doc command, use man[13]direxp instead of man[13]dir.
Without this, the doc command won't work when perl is configured and installed
with a prefix starting with ~
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/perl5db.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/perl5db.pl b/lib/perl5db.pl index abe08b27b3..c270ec4ef9 100644 --- a/lib/perl5db.pl +++ b/lib/perl5db.pl @@ -9040,8 +9040,8 @@ sub runman { $page = 'perl' if lc($page) eq 'help'; require Config; - my $man1dir = $Config::Config{'man1dir'}; - my $man3dir = $Config::Config{'man3dir'}; + my $man1dir = $Config::Config{man1direxp}; + my $man3dir = $Config::Config{man3direxp}; for ( $man1dir, $man3dir ) { s#/[^/]*\z## if /\S/ } my $manpath = ''; $manpath .= "$man1dir:" if $man1dir =~ /\S/; |