/[Frey]/trunk/lib/Frey/Server.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/Frey/Server.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 535 by dpavlin, Wed Nov 26 07:58:05 2008 UTC revision 536 by dpavlin, Wed Nov 26 16:33:58 2008 UTC
# Line 158  sub main { Line 158  sub main {
158                          my $html = $f->html;                          my $html = $f->html;
159                          die "no html output" unless $html;                          die "no html output" unless $html;
160                          warn "## html ",length($html)," bytes";                          warn "## html ",length($html)," bytes";
161                          $req->print( "$html\n" );                          eval {
162                                    $req->print( $html );
163                            };
164                            die "can't send to wire: $@" if $@;
165                  } else {                  } else {
166                          warn "# can't call request on nothing!";                          warn "# can't call request on nothing!";
167                  }                  }
# Line 182  sub main { Line 185  sub main {
185                  send_message($req);                  send_message($req);
186          }          }
187    
188          if ($req->conn ) {          if ( $req->conn ) {
189                  $req->conn->close;                  $req->conn->close;
190                  warn "## close connection: $@";                  warn "## close connection: $@";
191          }          }
Legend:
Removed from v.535  
changed lines
  Added in v.536
  ViewVC Help
Powered by ViewVC 1.1.26