[libconfig-grammar-perl] 01/02: Add close-correct-file-on-parse-failure.patch patch

[Salvatore Bonaccorso]

This is an automated email from the git hooks/post-receive script.

carnil pushed a commit to branch master
in repository libconfig-grammar-perl.

commit 5383f383f0617f292fcc317254bbe8ae015aca98
Author: Salvatore Bonaccorso <carnil at debian.org>
Date:   Tue Feb 9 08:27:11 2016 +0100

    Add close-correct-file-on-parse-failure.patch patch
    
    Fixes 'Name "Config::Grammar::File" used only once'.
---
 .../patches/close-correct-file-on-parse-failure.patch  | 18 ++++++++++++++++++
 debian/patches/series                                  |  1 +
 2 files changed, 19 insertions(+)

diff --git a/debian/patches/close-correct-file-on-parse-failure.patch b/debian/patches/close-correct-file-on-parse-failure.patch
new file mode 100644
index 0000000..29e125a
--- /dev/null
+++ b/debian/patches/close-correct-file-on-parse-failure.patch
@@ -0,0 +1,18 @@
+Description: Fixes 'Name "Config::Grammar::File" used only once'
+Origin: vendor
+Author: Salvatore Bonaccorso <carnil at debian.org>
+Last-Update: 2016-02-09
+Forwarded: https://rt.cpan.org/Ticket/Display.html?id=111891
+Bug: https://rt.cpan.org/Ticket/Display.html?id=111891
+
+--- a/lib/Config/Grammar.pm
++++ b/lib/Config/Grammar.pm
+@@ -614,7 +614,7 @@ sub _parse_file($$)
+         }
+ 
+         $self->{line} = $.;
+-        $self->_parse_line($_, $source) or do{ close File; return 0; };
++        $self->_parse_line($_, $source) or do{ close $fh; return 0; };
+ 	$source = '';
+     }
+     close $fh;
diff --git a/debian/patches/series b/debian/patches/series
index 8810115..0dc82a1 100644
--- a/debian/patches/series
+++ b/debian/patches/series
@@ -1 +1,2 @@
 fix-spelling-error-in-manpage.patch
+close-correct-file-on-parse-failure.patch

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libconfig-grammar-perl.git