diff options
author | Dale Evans <dale.evans@mycanadapayday.com> | 2015-12-25 12:44:12 -0800 |
---|---|---|
committer | Dale Evans <dale.evans@mycanadapayday.com> | 2015-12-25 12:44:12 -0800 |
commit | 927cee0f5c385656420152ee5e306f92b47d0229 (patch) | |
tree | 4c8889678060c56289dd8222a277ba8bb1100322 | |
parent | e73fbd3e36de3699c5caa22b20b65d1c553bfa6e (diff) | |
download | perl-libnet-927cee0f5c385656420152ee5e306f92b47d0229.tar.gz |
fix smtp demo program
Getopt::Long requires that implicit option variables ($opt_XXX) be declared with "our" and not "my".
-rwxr-xr-x | demos/smtp.self | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/demos/smtp.self b/demos/smtp.self index 8a87274..8917c25 100755 --- a/demos/smtp.self +++ b/demos/smtp.self @@ -43,9 +43,9 @@ Send the message to C<USERNAME> =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") |