Added --enable-sasl option to ./install for enabling SASL.
This commit is contained in:
1 parent
2d0388abd9
commit
c7758c10ad
1 file changed
+18
@@ -79,6 +79,19 @@ else {
|
|||||||
print "Unknown operating system. Contact support.\r\n";
|
print "Unknown operating system. Contact support.\r\n";
|
||||||
}
|
}
|
||||||
|
|
||||||
|
# Iterate through the arguments passed to us.
|
||||||
|
my $features = "base";
|
||||||
|
if (defined $ARGV[0]) {
|
||||||
|
foreach (@ARGV) {
|
||||||
|
if ($_ eq "--enable-sasl") {
|
||||||
|
$features .= " sasl";
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
println "Warning: Unknown option '".$_."'";
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
# Check Perl version.
|
# Check Perl version.
|
||||||
my %VER = ver();
|
my %VER = ver();
|
||||||
print "Checking Perl version..... $VER{ver}.$VER{sub}.$VER{rev} - ";
|
print "Checking Perl version..... $VER{ver}.$VER{sub}.$VER{rev} - ";
|
||||||
@@ -96,6 +109,7 @@ println "--- CPAN Modules ---";
|
|||||||
modfind("Mouse");
|
modfind("Mouse");
|
||||||
modfind("Async");
|
modfind("Async");
|
||||||
modfind("Class::Unload");
|
modfind("Class::Unload");
|
||||||
|
modfind("MIME::Base64") if ($features =~ /sasl/);
|
||||||
|
|
||||||
# Create build.
|
# Create build.
|
||||||
println "\0";
|
println "\0";
|
||||||
@@ -124,6 +138,10 @@ open(my $FOS, q{>}, "$Bin/build/os") or println "Failed to install." and exit;
|
|||||||
print $FOS $OSNAME."\n" or println "Failed to install." and exit;
|
print $FOS $OSNAME."\n" or println "Failed to install." and exit;
|
||||||
close $FOS or println "Failed to install." and exit;
|
close $FOS or println "Failed to install." and exit;
|
||||||
|
|
||||||
|
open(my $FFEAT, q{>}, "$Bin/build/feat") or println "Failed to install." and exit;
|
||||||
|
print $FFEAT $features."\n" or println "Failed to install." and exit;
|
||||||
|
close $FFEAT or println "Failed to install." and exit;
|
||||||
|
|
||||||
open(my $FPERL, q{>}, "$Bin/build/perl") or println "Failed to install." and exit;
|
open(my $FPERL, q{>}, "$Bin/build/perl") or println "Failed to install." and exit;
|
||||||
print $FPERL "$]\n" or println "Failed to install." and exit;
|
print $FPERL "$]\n" or println "Failed to install." and exit;
|
||||||
close $FPERL or println "Failed to install." and exit;
|
close $FPERL or println "Failed to install." and exit;
|
||||||
|
|||||||
Reference in new issue
Block a user