summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/handle_configs.pm5
1 files changed, 3 insertions, 2 deletions
diff --git a/perl-install/handle_configs.pm b/perl-install/handle_configs.pm
index 669c434b0..7d6e5c6e9 100644
--- a/perl-install/handle_configs.pm
+++ b/perl-install/handle_configs.pm
@@ -77,11 +77,12 @@ sub comment_directive {
my ($lines_ptr, $directive, $exactmatch) = @_;
+ my $success = 0;
my $searchdirective = searchstr($directive);
$searchdirective .= ".*" if !$exactmatch;
- (s/^\s*($searchdirective)$/#$1/ and return 1)
+ (s/^\s*($searchdirective)$/#$1/ and $success = 1)
foreach @$lines_ptr;
- return 0;
+ return $success;
}
sub replace_directive {