X-Git-Url: https://git.donarmstrong.com/?p=wannabuild.git;a=blobdiff_plain;f=bin%2Fwanna-build;h=27fb2126d65e8eaaa78312b8819fe5b109ec4636;hp=952074b55fe3f033c4e8015378c4cf47d4d8d55e;hb=185e4f130080855a0d8728a8d28f0c7720742620;hpb=268c80fda1e7620c658adb9106095ca64674ea17 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();