r27354 - /trunk/dh-make-perl/dh-make-perl

[dmn at users.alioth.debian.org]

Author: dmn
Date: Thu Nov 27 13:49:51 2008
New Revision: 27354

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=27354
Log:
move setting of $opt_exclude default value before GetOptions

Modified:
    trunk/dh-make-perl/dh-make-perl

Modified: trunk/dh-make-perl/dh-make-perl
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/dh-make-perl?rev=27354&op=diff
==============================================================================
--- trunk/dh-make-perl/dh-make-perl (original)
+++ trunk/dh-make-perl/dh-make-perl Thu Nov 27 13:49:51 2008
@@ -482,12 +482,14 @@
 my $opt_sources_list = '/etc/apt/sources.list';
 my $opt_verbose      = 1;
 my $opt_email        = '';
-my ($opt_arch,    $opt_basepkgs,    $opt_bdepends,    $opt_bdependsi,
-    $opt_depends, $opt_build,       $opt_install,     $opt_core_ok,
-    $opt_cpan,    $opt_cpanplus,    $opt_cpan_mirror, $opt_closes,
-    $opt_dbflags, $opt_desc,        $opt_exclude,     $opt_help,
-    $opt_nometa,  $opt_notest,      $opt_pkg_perl,    $opt_requiredeps,
-    $opt_version, $opt_packagename, $opt_refresh
+my $opt_exclude      = '(?:\/|^)(?:CVS|\.svn)\/';
+
+my ($opt_arch,        $opt_basepkgs, $opt_bdepends,    $opt_bdependsi,
+    $opt_depends,     $opt_build,    $opt_install,     $opt_core_ok,
+    $opt_cpan,        $opt_cpanplus, $opt_cpan_mirror, $opt_closes,
+    $opt_dbflags,     $opt_desc,     $opt_help,        $opt_nometa,
+    $opt_notest,      $opt_pkg_perl, $opt_requiredeps, $opt_version,
+    $opt_packagename, $opt_refresh
 );
 
 my $mod_cpan_version;
@@ -531,10 +533,6 @@
 # Help requested? Nice, we can just die! Isn't it helpful?
 die usage_instructions() if $opt_help;
 die "CPANPLUS support disabled, sorry" if $opt_cpanplus;
-
-$opt_exclude = '(?:\/|^)(?:CVS|\.svn)\/'
-    if ( !defined $opt_exclude
-    or $opt_exclude eq '' );
 
 $arch = $opt_arch if defined $opt_arch;