[SCM] Debian packaging of libuser-simple-perl branch, master, updated. 66fdee76249ec8711bf2ff7d636fe40628ad9f33

[gregor herrmann]

The following commit has been merged in the master branch:
commit ef3beb6cdf3b88998759e2608d7db3e93e03d631
Author: gregor herrmann <gregoa at debian.org>
Date:   Sun Jun 16 18:44:32 2013 +0200

    Add 2 patches to fix build failure under Perl 5.18:
    
    - using qw() in list context results in an error
    - missing =encoding in POD
    
    Closes: #711394

diff --git a/debian/patches/pod-encoding.patch b/debian/patches/pod-encoding.patch
new file mode 100644
index 0000000..0e97f55
--- /dev/null
+++ b/debian/patches/pod-encoding.patch
@@ -0,0 +1,30 @@
+Description: add encoding to POD, Pod::Simple is more strict now
+Origin: vendor
+Bug: https://rt.cpan.org/Ticket/Display.html?id=85966
+Forwarded: https://rt.cpan.org/Ticket/Display.html?id=85966
+Bug-Debian: http://bugs.debian.org/711394
+Author: gregor herrmann <gregoa at debian.org>
+Last-Update: 2013-06-16
+
+--- a/lib/User/Simple.pm
++++ b/lib/User/Simple.pm
+@@ -3,6 +3,8 @@
+ 
+ package User::Simple;
+ 
++=encoding ISO8859-1
++
+ =head1 NAME
+ 
+ User::Simple - Simple user sessions management
+--- a/lib/User/Simple/Admin.pm
++++ b/lib/User/Simple/Admin.pm
+@@ -3,6 +3,8 @@
+ 
+ package User::Simple::Admin;
+ 
++=encoding ISO8859-1
++
+ =head1 NAME
+ 
+ User::Simple::Admin - User::Simple user administration
diff --git a/debian/patches/qw-list.patch b/debian/patches/qw-list.patch
new file mode 100644
index 0000000..92938e8
--- /dev/null
+++ b/debian/patches/qw-list.patch
@@ -0,0 +1,19 @@
+Description: qw() in list context is an error with newer perls
+Origin: vendor
+Bug: https://rt.cpan.org/Ticket/Display.html?id=85966
+Forwarded: https://rt.cpan.org/Ticket/Display.html?id=85966
+Bug-Debian: http://bugs.debian.org/711394
+Author: gregor herrmann <gregoa at debian.org>
+Last-Update: 2013-06-16
+
+--- a/lib/User/Simple/Admin.pm
++++ b/lib/User/Simple/Admin.pm
+@@ -339,7 +339,7 @@
+ 	    # sensitive. Gah, we work around that to provide the much more 
+ 	    # common lowercase fields... This might still have some problems
+ 	    # attached, please tell me if it breaks for you.
+-	    for my $case qw(id ID Id iD) {
++	    for my $case (qw(id ID Id iD)) {
+ 		if (exists $row->{$case}) {
+ 		    $id = $row->{$case};
+ 		    last;
diff --git a/debian/patches/series b/debian/patches/series
new file mode 100644
index 0000000..c1f1799
--- /dev/null
+++ b/debian/patches/series
@@ -0,0 +1,2 @@
+qw-list.patch
+pod-encoding.patch

-- 
Debian packaging of libuser-simple-perl