Changeset 25568 for lang/perl/Path-Class-URI

Timestamp:

12/01/08 16:56:31 (4 years ago)

Author:

miyagawa

Message:

always use Unix!

Files:

• lang/perl/Path-Class-URI/trunk/lib/Path/Class/URI.pm (modified) (1 diff)

lang/perl/Path-Class-URI/trunk/lib/Path/Class/URI.pm

@@ -24 +24 @@
     my $self = shift;
     if ($self->is_absolute) {
-        return URI->new("file://localhost$self");
+        return URI->new("file://localhost" . $self->as_foreign('Unix'));
     } else {
-        return URI->new("file:$self");
+        return URI->new("file:" . $self->as_foreign('Unix'));
     }
 }