diff options
author | Dale Evans <dale.evans@mycanadapayday.com> | 2015-12-25 13:17:27 -0800 |
---|---|---|
committer | Dale Evans <dale.evans@mycanadapayday.com> | 2015-12-25 13:17:27 -0800 |
commit | bbb70c1e723377f76b8d5cdb1632bedc97ebf43b (patch) | |
tree | 587ca641545d9e7f72153ca6c4b80cf1bb1e91e2 | |
parent | e73fbd3e36de3699c5caa22b20b65d1c553bfa6e (diff) | |
download | perl-libnet-bbb70c1e723377f76b8d5cdb1632bedc97ebf43b.tar.gz |
fix pop3 demo program
Getopt::Long requires that implicit option variables ($opt_XXX) be declared with "our" and not "my". At least using Getopt::Long 2.38 / perl 5.14, this results in the $opt_* never getting any values filled in.
-rw-r--r-- | demos/pop3 | 4 |
1 files changed, 2 insertions, 2 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)); |