From aa1683a1c2f2058b03afd833a2cecfbff9449848 Mon Sep 17 00:00:00 2001
From: htmlism <htmlism@cac83df2-fa40-0410-8867-2b7918b5bb02>
Date: Sat, 2 Aug 2008 03:30:46 +0000
Subject: [PATCH] * CHANGE: bumpin' up to severity 3

---
 .perlcriticrc |  5 ++++-
 critique.pl   | 15 ++++++++-------
 2 files changed, 12 insertions(+), 8 deletions(-)

diff --git a/.perlcriticrc b/.perlcriticrc
index 32f8cfb..f37d500 100644
--- a/.perlcriticrc
+++ b/.perlcriticrc
@@ -1,4 +1,4 @@
-severity = 4
+severity = 3
 
 # severity five ===============================================================
 
@@ -24,6 +24,9 @@ allow_last_statement_to_be_comma_separated_in_map_and_grep = 1
 
 # severity three ==============================================================
 
+[-RegularExpressions::RequireExtendedFormatting]
+# they're not all complex
+
 # severity two ================================================================
 
 # severity one ================================================================
\ No newline at end of file
diff --git a/critique.pl b/critique.pl
index fe8104e..19fe15e 100644
--- a/critique.pl
+++ b/critique.pl
@@ -1,17 +1,18 @@
 use strict;
 use warnings;
 
+use Perl::Critic;
+
 my @FILES = qw(
-	buttbot.pl
-	Butts.pm
-	t/Butts.t
-	critique.pl
+  buttbot.pl
+  Butts.pm
+  t/Butts.t
+  critique.pl
 );
 
-use Perl::Critic;
 my $critic = new Perl::Critic;
 
 for my $file (@FILES) {
-	print "Critiquing $file...\n";
-	print $critic->critique($file);
+  print "Critiquing $file...\n";
+  print $critic->critique($file);
 }
\ No newline at end of file