:] Never mind...frickin' windoze CRLF seems to be the problem! As soon as the ^M is gone from the __END__ line, all is well. Sorry to have disturbed everybody, but thanks for the help!
Robert PS: Perl 5.6.1 > -----Original Message----- > From: Brad Appleton [mailto:[EMAIL PROTECTED]] > Sent: Monday, June 24, 2002 9:29 AM > To: Cordingley, Robert > Cc: [EMAIL PROTECTED] > Subject: Re: Pod::Usage generates no output > > > What version of Perl5 and of Pod::Usage are you using? I'm on > a Solaris box with a pre-5.6 persion of Perl and the example > you gave works fine for me. (so rest assured you aren't > missing the point :-) > > On Mon, Jun 24, 2002 at 09:09:22AM -0500, Cordingley, Robert wrote: > > Hi all, > > > > I've been reading this least for a few days, and I've not > seen a link to a > > FAQ go by yet, so I haven't read that. I guess the first > and most important > > question is: where's the FAQ? :) > > > > The second question is, why can I get no output from > Pod::Usage? I've tried > > copying the little sample program verbatim out of the > Pod::Usage man/pod > > page, and it too generates no output. I originally thought > it was because I > > was running perl under cygwin on Win2K, so I copied the > code to a Solaris > > 2.8 box and tried it there, again to no avail. Am I > completely missing > > something, perhaps the point of Pod::Usage? > > > > Here's the script I've tested with: > > > > #!/usr/local/bin/perl > > > > use Getopt::Long; > > use Pod::Usage; > > > > my $man = 0; > > my $help = 0; > > ## Parse options and print usage if there is a syntax error, > > ## or if usage was explicitly requested. > > GetOptions('help|?' => \$help, man => \$man) or pod2usage(2); > > pod2usage(1) if $help; > > pod2usage(-verbose => 2) if $man; > > > > ## If no arguments were given, then allow STDIN to be used only > > ## if it's not connected to a terminal (otherwise print usage) > > pod2usage("$0: No files given.") if ((@ARGV == 0) && (-t STDIN)); > > __END__ > > > > =head1 NAME > > > > sample - Using GetOpt::Long and Pod::Usage > > > > =head1 SYNOPSIS > > > > sample [options] [file ...] > > > > Options: > > -help brief help message > > -man full documentation > > > > =head1 OPTIONS > > > > =over 8 > > > > =item B<-help> > > > > Print a brief help message and exits. > > > > =item B<-man> > > > > Prints the manual page and exits. > > > > =back > > > > =head1 DESCRIPTION > > > > B<This program> will read the given input file(s) and do something > > useful with the contents thereof. > > > > =cut > > -- > Brad Appleton <[EMAIL PROTECTED]> http://www.bradapp.net/ > "Education is the ability to listen to almost anything > without losing your temper or your self-confidence." > -- Robert Frost >
