From 6f6533aa81791d40b37a9e715c7b7669cc92a1c9 Mon Sep 17 00:00:00 2001
From: Stefan Metzmacher <metze@samba.org>
Date: Wed, 21 Jan 2009 10:14:29 +0100
Subject: selftest: add --exeext parameter

metze
---
 selftest/target/Samba4.pm | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

(limited to 'selftest/target/Samba4.pm')

diff --git a/selftest/target/Samba4.pm b/selftest/target/Samba4.pm
index bb4f39dd0c..83f62d45ec 100644
--- a/selftest/target/Samba4.pm
+++ b/selftest/target/Samba4.pm
@@ -10,13 +10,15 @@ use Cwd qw(abs_path);
 use FindBin qw($RealBin);
 use POSIX;
 
-sub new($$$$) {
-	my ($classname, $bindir, $ldap, $setupdir) = @_;
+sub new($$$$$) {
+	my ($classname, $bindir, $ldap, $setupdir, $exeext) = @_;
+	$exeext = "" unless defined($exeext);
 	my $self = { 
 		vars => {}, 
 		ldap => $ldap, 
 		bindir => $bindir, 
-		setupdir => $setupdir 
+		setupdir => $setupdir,
+		exeext => $exeext
 	};
 	bless $self;
 	return $self;
@@ -25,7 +27,7 @@ sub new($$$$) {
 sub bindir_path($$) {
 	my ($self, $path) = @_;
 
-	return "$self->{bindir}/$path";
+	return "$self->{bindir}/$path$self->{exeext}";
 }
 
 sub openldap_start($$$) {
-- 
cgit