diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2003-04-24 19:00:12 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2003-04-24 19:00:12 +0000 |
commit | 73c851144720e28b21a491b6250385170db9d752 (patch) | |
tree | dcc9fae4302b3d083ad7cc7a808e5d17f970bb8c /perl-install/interactive/http.pm | |
parent | 0dc3338257439d2265c1eb13c3a66c9431c88cb5 (diff) | |
download | drakx-backup-do-not-use-73c851144720e28b21a491b6250385170db9d752.tar drakx-backup-do-not-use-73c851144720e28b21a491b6250385170db9d752.tar.gz drakx-backup-do-not-use-73c851144720e28b21a491b6250385170db9d752.tar.bz2 drakx-backup-do-not-use-73c851144720e28b21a491b6250385170db9d752.tar.xz drakx-backup-do-not-use-73c851144720e28b21a491b6250385170db9d752.zip |
perl_checker adaptations + fixes
Diffstat (limited to 'perl-install/interactive/http.pm')
-rw-r--r-- | perl-install/interactive/http.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/interactive/http.pm b/perl-install/interactive/http.pm index a4f9e3bfd..27ae507d8 100644 --- a/perl-install/interactive/http.pm +++ b/perl-install/interactive/http.pm @@ -17,7 +17,7 @@ my $uid; my $pipe_r = "/tmp/interactive_http_r"; my $pipe_w = "/tmp/interactive_http_w"; -sub open_stdout { +sub open_stdout() { open STDOUT, ">$pipe_w" or die; $| = 1; print CGI::header(); @@ -31,12 +31,12 @@ sub cont_stdout { $no_header = 0; } -sub new_uid { +sub new_uid() { my ($s, $ms) = gettimeofday(); $s * 256 + $ms % 256; } -sub new() { +sub new { open_stdout(); bless {}, $_[0]; } @@ -49,7 +49,7 @@ sub end() { close STDOUT; unlink $pipe_r, $pipe_w; } -sub exit() { end(); exit($_[1]) } +sub exit { end(); exit($_[1]) } END { end() } sub ask_fromW { |