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/t/400_Dpkg_Deps.t | |
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/t/400_Dpkg_Deps.t')
-rw-r--r-- | scripts/t/400_Dpkg_Deps.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/scripts/t/400_Dpkg_Deps.t b/scripts/t/400_Dpkg_Deps.t index 80ca1e3e1..24a37f3f5 100644 --- a/scripts/t/400_Dpkg_Deps.t +++ b/scripts/t/400_Dpkg_Deps.t @@ -97,7 +97,7 @@ is($dep_empty1->output(), "", "Empty dependency"); my $dep_empty2 = deps_parse(" , , ", union => 1); is($dep_empty2->output(), "", "' , , ' is also an empty dependency"); -$SIG{'__WARN__'} = sub {}; +$SIG{__WARN__} = sub {}; my $dep_bad_multiline = deps_parse("a, foo\nbar, c"); ok(!defined($dep_bad_multiline), "invalid dependency split over multiple line"); -delete $SIG{'__WARN__'}; +delete $SIG{__WARN__}; |