diff options
| author | Stefan Metzmacher <metze@samba.org> | 2009-01-21 10:14:29 +0100 |
|---|---|---|
| committer | Stefan Metzmacher <metze@samba.org> | 2009-01-21 13:35:36 +0100 |
| commit | 6f6533aa81791d40b37a9e715c7b7669cc92a1c9 (patch) | |
| tree | 0e023de77b0158794f17dcde2b1152cd1fe69c0c /selftest/target | |
| parent | ccffe1ca71392f8d4f62b8ca64f9eafe42505808 (diff) | |
| download | samba-6f6533aa81791d40b37a9e715c7b7669cc92a1c9.tar.gz samba-6f6533aa81791d40b37a9e715c7b7669cc92a1c9.tar.bz2 samba-6f6533aa81791d40b37a9e715c7b7669cc92a1c9.zip | |
selftest: add --exeext parameter
metze
Diffstat (limited to 'selftest/target')
| -rw-r--r-- | selftest/target/Samba4.pm | 10 |
1 files changed, 6 insertions, 4 deletions
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($$$) { |