From 927cee0f5c385656420152ee5e306f92b47d0229 Mon Sep 17 00:00:00 2001
From: Dale Evans <dale.evans@mycanadapayday.com>
Date: Fri, 25 Dec 2015 12:44:12 -0800
Subject: fix smtp demo program

Getopt::Long requires that implicit option variables ($opt_XXX) be declared with "our" and not "my".
---
 demos/smtp.self | 6 +++---
 1 file 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")
-- 
cgit v1.2.3-24-ge0c7