fix warnings in Mojo::URL

mojolicious · Feb 4, 2015 · 53fc92c · 53fc92c
1 parent 175e629
commit 53fc92c
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 2 deletions.
diff --git a/Changes b/Changes
@@ -1,5 +1,6 @@
 
-5.78  2015-02-04
+5.78  2015-02-05
+  - Fixed warnings in Mojo::URL.
 
 5.77  2015-02-03
   - Added content_security_policy method to Mojo::Headers.

diff --git a/lib/Mojo/URL.pm b/lib/Mojo/URL.pm
@@ -15,7 +15,7 @@ sub authority {
 
   # New authority
   if (@_) {
-    my $authority = shift;
+    return $self unless defined(my $authority = shift);
 
     # Userinfo
     $self->userinfo(_decode(url_unescape $1)) if $authority =~ s/^([^\@]+)\@//;

diff --git a/t/mojo/url.t b/t/mojo/url.t
@@ -175,6 +175,7 @@ is $url->path,     '0',   'right path';
 is "$url", 'foo:0', 'right format';
 
 # Relative
+is(Mojo::URL->new->to_abs, '', 'no result');
 $url = Mojo::URL->new('foo?foo=bar#23');
 is $url->path_query, 'foo?foo=bar', 'right path and query';
 ok !$url->is_abs, 'is not absolute';