From bbb70c1e723377f76b8d5cdb1632bedc97ebf43b Mon Sep 17 00:00:00 2001
From: Dale Evans <dale.evans@mycanadapayday.com>
Date: Fri, 25 Dec 2015 13:17:27 -0800
Subject: 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.
---
 demos/pop3 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/demos/pop3 b/demos/pop3
index 28399cd..53a626a 100644
--- a/demos/pop3
+++ b/demos/pop3
@@ -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));
 
-- 
cgit v1.2.3-24-ge0c7