diff options
| author | Guillem Jover <guillem@debian.org> | 2013-01-02 00:39:08 +0100 |
|---|---|---|
| committer | Guillem Jover <guillem@debian.org> | 2013-06-22 05:07:34 +0200 |
| commit | fb5285f56924fdf84d3281bbf6046f8b4bb00048 (patch) | |
| tree | a3030aec8a2891a811d7803034a383dd8c33c6ed /scripts/dpkg-source.pl | |
| parent | a55de1500d33db1192e5c2ace48e58baf252f8b9 (diff) | |
| download | dpkg-fb5285f56924fdf84d3281bbf6046f8b4bb00048.tar.gz | |
Dpkg: Deprecate lowercase exported by default variables
Rename, uppercase and do not export new variables by default, to avoid
cluttering the caller namespace, and to give them consistent names. We'll
keep the old variables for a while, to not break uses from external
modules.
Addresses Variables::ProhibitPackageVars.
Diffstat (limited to 'scripts/dpkg-source.pl')
| -rwxr-xr-x | scripts/dpkg-source.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/scripts/dpkg-source.pl b/scripts/dpkg-source.pl index 7018361e9..4ba4de814 100755 --- a/scripts/dpkg-source.pl +++ b/scripts/dpkg-source.pl @@ -28,7 +28,7 @@ use strict; use warnings; -use Dpkg; +use Dpkg qw(); use Dpkg::Gettext; use Dpkg::ErrorHandling; use Dpkg::Arch qw(debarch_eq debarch_is debarch_is_wildcard); @@ -464,7 +464,7 @@ sub setopmode { } sub version { - printf _g("Debian %s version %s.\n"), $progname, $version; + printf _g("Debian %s version %s.\n"), $Dpkg::PROGNAME, $Dpkg::PROGVERSION; print _g(' This is free software; see the GNU General Public License version 2 or @@ -514,7 +514,7 @@ sub usage { . "\n\n" . _g( 'More options are available but they depend on the source package format. See dpkg-source(1) for more info.') . "\n", - $progname, + $Dpkg::PROGNAME, $Dpkg::Source::Package::diff_ignore_default_regexp, join(' ', map { "-I$_" } @Dpkg::Source::Package::tar_ignore_default_pattern), compression_get_default(), |