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") |