From 01abe8afb95f4bafb1f192fb3fe451a95cd2e3f8 Mon Sep 17 00:00:00 2001 From: Guillem Jover Date: Sun, 15 Feb 2015 23:18:31 +0100 Subject: 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. --- scripts/dpkg-source.pl | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'scripts/dpkg-source.pl') 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; -- cgit v1.2.3