From e85104ab65c02e76e4988e39384013a00d317067 Mon Sep 17 00:00:00 2001
From: Tom Ryder <tom@sanctum.geek.nz>
Date: Wed, 27 Sep 2017 15:53:01 +1300
Subject: Allow a few more numeric literals in Perl

---
 perlcritic/perlcriticrc | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'perlcritic')

diff --git a/perlcritic/perlcriticrc b/perlcritic/perlcriticrc
index 25343d50..c3fda080 100644
--- a/perlcritic/perlcriticrc
+++ b/perlcritic/perlcriticrc
@@ -9,3 +9,8 @@ severity = brutal
 # Add some networking terms to the list of legal numbered names
 [Bangs::ProhibitNumberedNames]
 add_exceptions = inet4 inet6 ipv4 ipv6
+
+# Soften this policy a bit; tolerate all the single-digit integers as literals,
+# and also 100 (for calculating percentages)
+[ValuesAndExpressions::ProhibitMagicNumbers]
+allowed_values = 0..9 100
-- 
cgit v1.2.3