… | |
… | |
178 | sub mainloop { |
178 | sub mainloop { |
179 | server_event while 1; |
179 | server_event while 1; |
180 | } |
180 | } |
181 | |
181 | |
182 | sub init { |
182 | sub init { |
|
|
183 | my $self = shift; |
|
|
184 | |
183 | $IN_MOZILLA = 1; |
185 | $IN_MOZILLA = 1; |
184 | |
186 | |
185 | open FD, "+<&=$_[1]"; binmode $FD; |
187 | open FD, "+<&=$_[0]"; binmode $FD; |
186 | |
188 | |
187 | warn "init: ".Dumper(@_); |
189 | warn "init: ".Dumper(@_); |
|
|
190 | |
188 | mainloop; |
191 | $self->mainloop; |
189 | } |
192 | } |
190 | |
193 | |
191 | sub new { |
194 | sub new { |
192 | my $class = shift; |
195 | my $class = shift; |
193 | my $self = bless { @_ }, $class; |
196 | my $self = bless { @_ }, $class; |