diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2003-09-17 19:25:59 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2003-09-17 19:25:59 +0000 |
| commit | ede995e0075092ca9b763713d60eb71105b5521e (patch) | |
| tree | fbfbdbda045b00fa99999433adb46d17bfb7eadd /perl-install | |
| parent | e1f5b7b9b82f10d165c253e56fc72845fae0a3e1 (diff) | |
| download | drakx-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.pm | 5 |
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 { |