summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-08-09 03:24:28 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-08-09 03:24:28 +0000
commit8828cad40309af00a289a234c162554b382f0fba (patch)
tree83b0c8fbc2afe1e38fffe408edba0233269d6a2c /perl-install/interactive
parent2808f751a28cf02e71a3ef28ad4f59d026a35311 (diff)
downloaddrakx-backup-do-not-use-8828cad40309af00a289a234c162554b382f0fba.tar
drakx-backup-do-not-use-8828cad40309af00a289a234c162554b382f0fba.tar.gz
drakx-backup-do-not-use-8828cad40309af00a289a234c162554b382f0fba.tar.bz2
drakx-backup-do-not-use-8828cad40309af00a289a234c162554b382f0fba.tar.xz
drakx-backup-do-not-use-8828cad40309af00a289a234c162554b382f0fba.zip
prototype perl_checker compliance
Diffstat (limited to 'perl-install/interactive')
-rw-r--r--perl-install/interactive/http.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/interactive/http.pm b/perl-install/interactive/http.pm
index 393ede7f6..b5ade049c 100644
--- a/perl-install/interactive/http.pm
+++ b/perl-install/interactive/http.pm
@@ -25,8 +25,8 @@ sub open_stdout() {
# cont_stdout must be called after open_stdout and before the first print
sub cont_stdout {
- my ($title) = @_;
- print CGI::start_html('-title' => $title) if $no_header;
+ my ($o_title) = @_;
+ print CGI::start_html('-title' => $o_title) if $no_header;
$no_header = 0;
}