summaryrefslogtreecommitdiff
path: root/scripts/dpkg-source.pl
diff options
context:
space:
mode:
authorGuillem Jover <guillem@debian.org>2015-02-15 23:18:31 +0100
committerGuillem Jover <guillem@debian.org>2015-03-30 20:22:38 +0200
commit01abe8afb95f4bafb1f192fb3fe451a95cd2e3f8 (patch)
tree2384393b6e59f3b852a9ec70a4733e5f4310847a /scripts/dpkg-source.pl
parent046ad868331a9f1581837404449b4320e6d09c36 (diff)
downloaddpkg-01abe8afb95f4bafb1f192fb3fe451a95cd2e3f8.tar.gz
perl: Rework use and exporter declarations
Place 'use' strict and warnings first, then Exporter 'our' declarations, then Test module imports, then system module imports, then Dpkg module imports, then 'use' parent and overload pragmas, separated by a blank line for each block. Split each exported symbol declaration into its own line to ease modifications.
Diffstat (limited to 'scripts/dpkg-source.pl')
-rwxr-xr-xscripts/dpkg-source.pl8
1 files changed, 4 insertions, 4 deletions
diff --git a/scripts/dpkg-source.pl b/scripts/dpkg-source.pl
index 48e8ebe0e..dbb51003c 100755
--- a/scripts/dpkg-source.pl
+++ b/scripts/dpkg-source.pl
@@ -28,6 +28,10 @@
use strict;
use warnings;
+use Cwd;
+use File::Basename;
+use File::Spec;
+
use Dpkg ();
use Dpkg::Gettext;
use Dpkg::ErrorHandling;
@@ -47,10 +51,6 @@ use Dpkg::Source::Package qw(get_default_diff_ignore_regex
get_default_tar_ignore_pattern);
use Dpkg::Vendor qw(run_vendor_hook);
-use Cwd;
-use File::Basename;
-use File::Spec;
-
textdomain('dpkg-dev');
my $controlfile;