fixed another small stringification bug in Mojo::Path

mojolicious · May 12, 2012 · 1ba7ad7 · 1ba7ad7
1 parent 0f12d1b
commit 1ba7ad7
Show file tree

Hide file tree

Showing 3 changed files with 8 additions and 3 deletions.
diff --git a/Changes b/Changes
@@ -4,7 +4,7 @@ This file documents the revision history for Perl extension Mojolicious.
   - Added merge method to Mojo::Path.
   - Improved documentation.
   - Improved tests.
-  - Fixed small stringification bug in Mojo::Path.
+  - Fixed small stringification bugs in Mojo::Path.
 
 2.95  2012-05-10
   - Improved documentation.

diff --git a/lib/Mojo/Path.pm b/lib/Mojo/Path.pm
@@ -88,7 +88,7 @@ sub parse {
 sub to_abs_string {
   my $self   = shift;
   my $string = $self->to_string;
-  return $self->leading_slash ? $string : $string ? "/$string" : '';
+  return $self->leading_slash ? $string : length($string) ? "/$string" : '';
 }
 
 # "How is education supposed to make me feel smarter?

diff --git a/t/mojo/path.t b/t/mojo/path.t
@@ -2,7 +2,7 @@ use Mojo::Base -strict;
 
 use utf8;
 
-use Test::More tests => 206;
+use Test::More tests => 210;
 
 # "This is the greatest case of false advertising I’ve seen since I sued the
 #  movie 'The Never Ending Story.'"
@@ -53,6 +53,11 @@ is $path->parts->[1], '0',    'right part';
 is $path->parts->[2], undef,  'no part';
 ok $path->leading_slash, 'has leading slash';
 ok !$path->trailing_slash, 'no trailing slash';
+$path = Mojo::Path->new('0');
+is $path->parts->[0], '0',   'right part';
+is $path->parts->[1], undef, 'no part';
+is $path->to_string,     '0',  'right result';
+is $path->to_abs_string, '/0', 'right result';
 
 # Canonicalizing
 $path = Mojo::Path->new(