'-Wl,(-z,)?now' => '-Wl,-z,now',
);
+# Use colored (ANSI) output?
+my $option_color;
+
# FUNCTIONS
sub error_color {
my ($message, $color) = @_;
- # Use colors when writing to a terminal.
- if (-t STDOUT) {
+ if ($option_color) {
return Term::ANSIColor::colored($message, $color);
} else {
return $message;
my $option_all = 0;
my $option_arch = undef;
my $option_buildd = 0;
+ $option_color = 0;
if (not Getopt::Long::GetOptions(
'help|h|?' => \$option_help,
'version' => \$option_version,
'bindnow' => \$harden_bindnow,
'all' => \$option_all,
# Misc.
+ 'color' => \$option_color,
'arch' => \$option_arch,
'buildd' => \$option_buildd,
)) {
--all force +all (+pie, +bindnow) check
--arch set architecture (autodetected)
--buildd parser mode for buildds
+ --color use colored output
=head1 DESCRIPTION
=back
+=item B<--color>
+
+Use colored (ANSI) output for warning messages.
+
=back
Auto detection for B<--pie> and B<--bindnow> only works if at least one
--all force +all (+pie, +bindnow) check
--arch set architecture (autodetected)
--buildd parser mode for buildds
+ --color use colored output
';