CC: | zhouzhen1 [...] gmail.com |
Subject: | [PATCH] fix -perldoc option in pod2usage() method |
In version 1.67 it misses that '-' before 'perldoc'
--- lib/Pod/Usage.pm.1.67 2015-12-19 10:54:15.746666667 +0800
+++ lib/Pod/Usage.pm 2015-12-19 10:55:31.720000000 +0800
@@ -128,7 +128,7 @@
}
## Check for perldoc
- my $progpath = $opts{perldoc} ? $opts{perldoc} :
+ my $progpath = $opts{'-perldoc'} ? $opts{'-perldoc'} :
File::Spec->catfile($Config{scriptdirexp}
|| $Config{scriptdir}, 'perldoc');