diff options
| -rw-r--r-- | demos/pop3 | 4 | ||||
| -rwxr-xr-x | demos/smtp.self | 11 | ||||
| -rw-r--r-- | lib/Net/FTP.pm | 2 |
3 files changed, 8 insertions, 9 deletions
@@ -9,8 +9,8 @@ use blib; use Getopt::Long; use Net::POP3; -my $opt_debug = 0; -my $opt_user = undef; +our $opt_debug = 0; +our $opt_user = undef; GetOptions(qw(debug user=s)); diff --git a/demos/smtp.self b/demos/smtp.self index 8a87274..e34d585 100755 --- a/demos/smtp.self +++ b/demos/smtp.self @@ -33,21 +33,20 @@ Display this help text and quit Send the message to C<USERNAME> +=back + =head1 EXAMPLE demos/smtp.self -user foo.bar demos/smtp.self -debug -user Graham.Barr -=back - =cut -my $opt_debug = undef; -my $opt_user = undef; -my $opt_help = undef; +our $opt_debug = undef; +our $opt_user = undef; +our $opt_help = undef; GetOptions(qw(debug user=s help)); - exec("pod2text $0") if defined $opt_help; diff --git a/lib/Net/FTP.pm b/lib/Net/FTP.pm index eb56e1a..c0904c6 100644 --- a/lib/Net/FTP.pm +++ b/lib/Net/FTP.pm @@ -1991,7 +1991,7 @@ It may be difficult for me to reproduce the problem as almost every setup is different. A small script which yields the problem will probably be of help. It would -also be useful if this script was run with the extra options C<Debug => 1> +also be useful if this script was run with the extra options C<< Debug => 1 >> passed to the constructor, and the output sent with the bug report. If you cannot include a small script then please include a Debug trace from a run of your program which does yield the problem. |