r44665 - in /trunk/dh-make-perl: debian/changelog lib/DhMakePerl.pm

[mxey-guest at users.alioth.debian.org]

Author: mxey-guest
Date: Wed Sep 23 07:37:46 2009
New Revision: 44665

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=44665
Log:
Ignore META.yml when it's not a hash (closes: #543655)

Modified:
    trunk/dh-make-perl/debian/changelog
    trunk/dh-make-perl/lib/DhMakePerl.pm

Modified: trunk/dh-make-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/debian/changelog?rev=44665&op=diff
==============================================================================
--- trunk/dh-make-perl/debian/changelog (original)
+++ trunk/dh-make-perl/debian/changelog Wed Sep 23 07:37:46 2009
@@ -18,8 +18,9 @@
 
   [ Maximilian Gass ]
   * Added myself to uploaders
-
- -- Maximilian Gass <mxey at cloudconnected.org>  Wed, 23 Sep 2009 09:34:17 +0200
+  * Ignore META.yml when it's not a hash (closes: #543655)
+
+ -- Maximilian Gass <mxey at cloudconnected.org>  Wed, 23 Sep 2009 09:35:41 +0200
 
 dh-make-perl (0.59) unstable; urgency=low
 

Modified: trunk/dh-make-perl/lib/DhMakePerl.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/lib/DhMakePerl.pm?rev=44665&op=diff
==============================================================================
--- trunk/dh-make-perl/lib/DhMakePerl.pm (original)
+++ trunk/dh-make-perl/lib/DhMakePerl.pm Wed Sep 23 07:37:46 2009
@@ -616,6 +616,11 @@
     if ($@) {
         print "Error parsing $file - Ignoring it.\n";
         print "Please notify module upstream maintainer.\n";
+        $yaml = {};
+    }
+
+    if (ref $yaml ne 'HASH') {
+        print "$file does not contain a hash - Ignoring it\n";
         $yaml = {};
     }