| Subject: | It required POD::Text but I only have Pod::Text (which works fine when I change Euclid.pm) |
WHen you use --man or --help Getopt::Euclid prints out unformatted Pod.
When you apply the patch it works correctly.
Test machine was an IRIX machine - perl 5.8.7
This fixes it:
diff -c Euclid.pm~ Euclid.pm
*** Euclid.pm~ Fri Aug 5 06:03:28 2005
--- Euclid.pm Wed Nov 30 12:41:57 2005
***************
*** 536,542 ****
sub _print_and_exit {
my ($pod, $paged) = @_;
! if (-t *STDOUT and eval { require POD::Text }) {
if ($paged) {
eval { require IO::Page } or eval { require IO::Pager::Page };
}
--- 536,542 ----
sub _print_and_exit {
my ($pod, $paged) = @_;
! if (-t *STDOUT and eval { require Pod::Text }) {
if ($paged) {
eval { require IO::Page } or eval { require IO::Pager::Page };
}