small optimization

mojolicious · Mar 3, 2013 · b092699 · b092699
1 parent 490057b
commit b092699
Show file tree

Hide file tree

Showing 4 changed files with 9 additions and 7 deletions.
diff --git a/Changes b/Changes
@@ -1,4 +1,7 @@
 
+3.89  2013-03-04
+  - Improved documentation.
+
 3.88  2013-03-03
   - Improved Mojo::Path to delay normalization as long as possible.
   - Improved Mojo::Path performance.

diff --git a/lib/Mojo/Headers.pm b/lib/Mojo/Headers.pm
@@ -500,8 +500,8 @@ Shortcut for the C<Sec-WebSocket-Key> header from RFC 6455.
 
 =head2 sec_websocket_protocol
 
-  my $protocol = $headers->sec_websocket_protocol;
-  $headers     = $headers->sec_websocket_protocol('sample');
+  my $proto = $headers->sec_websocket_protocol;
+  $headers  = $headers->sec_websocket_protocol('sample');
 
 Shortcut for the C<Sec-WebSocket-Protocol> header from RFC 6455.
 

diff --git a/lib/Mojo/UserAgent/Transactor.pm b/lib/Mojo/UserAgent/Transactor.pm
@@ -155,10 +155,9 @@ sub websocket {
 
   # New WebSocket transaction
   my $tx    = $self->tx(GET => @_);
-  my $req   = $tx->req;
-  my $abs   = $req->url->to_abs;
-  my $proto = $abs->protocol;
-  $req->url($abs->scheme($proto eq 'wss' ? 'https' : 'http')) if $proto;
+  my $url   = $tx->req->url;
+  my $proto = $url->protocol;
+  $url->scheme($proto eq 'wss' ? 'https' : 'http') if $proto;
 
   # Handshake
   Mojo::Transaction::WebSocket->new(handshake => $tx)->client_handshake;

diff --git a/lib/Mojolicious.pm b/lib/Mojolicious.pm
@@ -40,7 +40,7 @@ has static   => sub { Mojolicious::Static->new };
 has types    => sub { Mojolicious::Types->new };
 
 our $CODENAME = 'Rainbow';
-our $VERSION  = '3.88';
+our $VERSION  = '3.89';
 
 sub AUTOLOAD {
   my $self = shift;