Simplify argument handling.

2 files changed, 3 insertions, 6 deletions

diff --git a/source/build/smb_build/config_mk.pm b/source/build/smb_build/config_mk.pm
index 81c3363cfbf..56ad0c87c93 100644
--- a/source/build/smb_build/config_mk.pm
+++ b/source/build/smb_build/config_mk.pm
@@ -96,14 +96,11 @@ use vars qw(@parsed_files);
 
 @parsed_files = ();
 
-sub _read_config_file
+sub _read_config_file($$$)
 {
-	use File::Basename;
 	use Cwd;
 
-	my $srcdir = shift;
-	my $builddir = shift;
-	my $filename = shift;
+	my ($srcdir, $builddir, $filename) = @_;
 	my @dirlist;
 
 	# We need to change our working directory because config.mk files can
diff --git a/source/build/smb_build/main.pl b/source/build/smb_build/main.pl
index d6476c0cf23..ab889b0e5a8 100644
--- a/source/build/smb_build/main.pl
+++ b/source/build/smb_build/main.pl
@@ -17,7 +17,7 @@ use strict;
 my $output_file = "data.mk";
 
 my $result = GetOptions (
-	'output' => \$output_file);
+	'output=s' => \$output_file);
 
 if (not $result) {
 	exit(1);