From 2cd8831abc7286682436d5157df2beec96085888 Mon Sep 17 00:00:00 2001
From: Matthew Barksdale <mattwb65@gmail.com>
Date: Fri, 21 Jan 2011 01:23:17 -0500
Subject: [PATCH] Cleaned up check a little more

---
 scripts/check | 12 ++----------
 1 file changed, 2 insertions(+), 10 deletions(-)

diff --git a/scripts/check b/scripts/check
index 0f8edc9..9369fca 100755
--- a/scripts/check
+++ b/scripts/check
@@ -5,11 +5,7 @@ use warnings;
 use Perl::Critic;
 my $level;
 
-if (!defined $ARGV[0])
-{
-  print "usage: $0 <file> [level]\n";
-  exit 0;
-}
+print "Usage: $0 <file> [level]\n" and exit 0 if !defined $ARGV[0];
 
 if (!-e $ARGV[0])
 {
@@ -29,11 +25,7 @@ else {
 my $critic = Perl::Critic->new(-severity => $level);
 my @violations = $critic->critique($ARGV[0]);
 
-if (!defined $violations[0])
-{
-  print "$ARGV[0] passed (no violations)\n";
-  exit 0;
-}
+print "$ARGV[0] passed (no violations)\n" and exit 0 if !defined $violations[0];
 
 print "Violations:\n";
 my $count = 0;