[libconfig-model-dpkg-perl] 04/07: Dpkg::Copyright: improve error message

[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 c7a66403825a7703304926f19899320635650745
Author: Dominique Dumont <dod at debian.org>
Date:   Thu Sep 5 19:45:20 2013 +0200

    Dpkg::Copyright: improve error message
---
 lib/Config/Model/Backend/Dpkg/Copyright.pm |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/Config/Model/Backend/Dpkg/Copyright.pm b/lib/Config/Model/Backend/Dpkg/Copyright.pm
index 18d89ed..e36477d 100644
--- a/lib/Config/Model/Backend/Dpkg/Copyright.pm
+++ b/lib/Config/Model/Backend/Dpkg/Copyright.pm
@@ -259,7 +259,7 @@ sub _store_file_info {
     my $target = $object->fetch_element($target_name) ;
     my $type = $target->get_type ;
     my $dispatcher = $type eq 'leaf' ? $target->value_type : $type ;
-    my $f =  $store_dispatch{$dispatcher} || die "unknown dispatcher for $key";
+    my $f =  $store_dispatch{$dispatcher} || die "unknown dispatcher for element type '$key'";
     $f->($target,$v,$check) ; 
     $target->notify_change(note => $a, really => 1 ) if $a ;
 }

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