[libconfig-model-dpkg-perl] 08/14: Abort when extracted license data is corrupted

[dod at debian.org]

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

dod pushed a commit to branch master
in repository libconfig-model-dpkg-perl.

commit c5b6ab7bdb8872cf1898308a044ea6d8be329942
Author: Dominique Dumont <dod at debian.org>
Date:   Sat Feb 27 12:25:14 2016 +0100

    Abort when extracted license data is corrupted
    
    This require Config::Model 2.080 to work properly
---
 lib/Config/Model/Dpkg/Copyright.pm | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/lib/Config/Model/Dpkg/Copyright.pm b/lib/Config/Model/Dpkg/Copyright.pm
index 5e78717..360ea88 100644
--- a/lib/Config/Model/Dpkg/Copyright.pm
+++ b/lib/Config/Model/Dpkg/Copyright.pm
@@ -250,7 +250,17 @@ sub update ($self, %args) {
 
         }
 
-        $files_obj->fetch_with_id($path_str)->load_data( $datum );
+        eval {
+            $files_obj->fetch_with_id($path_str)->load_data( data => $datum, check =>'yes' );
+        };
+        if ($@) {
+            die "Error: Data extracted from source file is corrupted:\n$@"
+                ."This usually mean that cme or licensecheck (or both)"
+                ."have a bug. You may work-around this issue by adding an override entry in "
+                ."fill.copyright.blanks file. See "
+                ."https://github.com/dod38fr/config-model/wiki/Managing-Debian-packages-with-cme for instructions. "
+                ."And please file a bug against libconfig-model-dpkg-perl.\n";
+        }
     }
 
     # delete global license without text

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