diff options
| author | Guillem Jover <guillem@debian.org> | 2013-04-21 06:10:17 +0200 |
|---|---|---|
| committer | Guillem Jover <guillem@debian.org> | 2013-04-30 20:59:27 +0200 |
| commit | 62bc788a45e4a641c28ca9c8c5b9bb08f29faed8 (patch) | |
| tree | 440e84bf7a9a0ec56aea27cd7f5568ca581b2d46 /scripts/Dpkg/Vendor/Ubuntu.pm | |
| parent | d6851023a9ab87e3109fca3f2f9c6b5210575663 (diff) | |
| download | dpkg-62bc788a45e4a641c28ca9c8c5b9bb08f29faed8.tar.gz | |
Do not quote simple identifier hash keys in element accesses
Addresses ValuesAndExpressions::ProhibitInterpolationOfLiterals.
Warned-by: perlcritic
Diffstat (limited to 'scripts/Dpkg/Vendor/Ubuntu.pm')
| -rw-r--r-- | scripts/Dpkg/Vendor/Ubuntu.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/scripts/Dpkg/Vendor/Ubuntu.pm b/scripts/Dpkg/Vendor/Ubuntu.pm index 2c878c975..309078033 100644 --- a/scripts/Dpkg/Vendor/Ubuntu.pm +++ b/scripts/Dpkg/Vendor/Ubuntu.pm @@ -51,14 +51,14 @@ sub run_hook { if ($hook eq "before-source-build") { my $src = shift @params; - my $fields = $src->{'fields'}; + my $fields = $src->{fields}; # check that Maintainer/XSBC-Original-Maintainer comply to # https://wiki.ubuntu.com/DebianMaintainerField if (defined($fields->{'Version'}) and defined($fields->{'Maintainer'}) and $fields->{'Version'} =~ /ubuntu/) { if ($fields->{'Maintainer'} !~ /ubuntu/i) { - if (defined ($ENV{'DEBEMAIL'}) and $ENV{'DEBEMAIL'} =~ /\@ubuntu\.com/) { + if (defined ($ENV{DEBEMAIL}) and $ENV{DEBEMAIL} =~ /\@ubuntu\.com/) { error(_g('Version number suggests Ubuntu changes, but Maintainer: does not have Ubuntu address')); } else { warning(_g('Version number suggests Ubuntu changes, but Maintainer: does not have Ubuntu address')); |