r55935 - /trunk/dh-make-perl/lib/DhMakePerl/Command/Packaging.pm

[dmn at users.alioth.debian.org]

Author: dmn
Date: Sun Apr 11 10:12:47 2010
New Revision: 55935

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=55935
Log:
extract_desc: move the file existence check a bit earlier

Modified:
    trunk/dh-make-perl/lib/DhMakePerl/Command/Packaging.pm

Modified: trunk/dh-make-perl/lib/DhMakePerl/Command/Packaging.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/lib/DhMakePerl/Command/Packaging.pm?rev=55935&op=diff
==============================================================================
--- trunk/dh-make-perl/lib/DhMakePerl/Command/Packaging.pm (original)
+++ trunk/dh-make-perl/lib/DhMakePerl/Command/Packaging.pm Sun Apr 11 10:12:47 2010
@@ -483,9 +483,9 @@
 
     $desc and return;
 
+    return unless -f $file;
     my ( $parser, $modulename );
     $parser = new DhMakePerl::PodParser;
-    return unless -f $file;
     $parser->set_names(qw(NAME DESCRIPTION DETAILS));
     $parser->parse_from_file($file);
     if ( $desc ) {