From 185e4f130080855a0d8728a8d28f0c7720742620 Mon Sep 17 00:00:00 2001
From: Hilko Bengen <bengen@debian.org>
Date: Wed, 30 Mar 2011 20:39:50 +0200
Subject: [PATCH] perlcritic: Subroutine prototypes used

---
 bin/wanna-build | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/bin/wanna-build b/bin/wanna-build
index 952074b..27fb212 100755
--- a/bin/wanna-build
+++ b/bin/wanna-build
@@ -3002,14 +3002,13 @@ sub add_user_info {
 		or die $dbh->errstr;
 }
 
-sub lock_table()
-{
+sub lock_table {
         return if $simulate;
 	$dbh->do('LOCK TABLE ' . table_name() .
 		' IN EXCLUSIVE MODE', undef) or die $dbh->errstr;
 }
 
-sub parse_argv() {
+sub parse_argv {
 # parts the array $_[0] and $_[1] and returns the sub-array (modifies the original one)
     my @ret = ();
     my $args = shift;
@@ -3021,7 +3020,7 @@ sub parse_argv() {
     return @ret;
 }
 
-sub parse_all_v3() {
+sub parse_all_v3 {
     my $srcs = shift;
     my $vars = shift;
     my $db = get_all_source_info();
-- 
2.39.2