summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-09-17 19:25:59 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-09-17 19:25:59 +0000
commitede995e0075092ca9b763713d60eb71105b5521e (patch)
treefbfbdbda045b00fa99999433adb46d17bfb7eadd /perl-install
parente1f5b7b9b82f10d165c253e56fc72845fae0a3e1 (diff)
downloaddrakx-backup-do-not-use-ede995e0075092ca9b763713d60eb71105b5521e.tar
drakx-backup-do-not-use-ede995e0075092ca9b763713d60eb71105b5521e.tar.gz
drakx-backup-do-not-use-ede995e0075092ca9b763713d60eb71105b5521e.tar.bz2
drakx-backup-do-not-use-ede995e0075092ca9b763713d60eb71105b5521e.tar.xz
drakx-backup-do-not-use-ede995e0075092ca9b763713d60eb71105b5521e.zip
(comment_directive) fix it
Diffstat (limited to 'perl-install')
-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 {