Changeset 25570

Show
Ignore:
Timestamp:
12/01/08 16:59:35 (4 years ago)
Author:
miyagawa
Message:

this one too

Files:
1 modified

Legend:

Unmodified
Added
Removed

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

    r25566 r25570  
    4040sub uri { 
    4141    my $self = shift; 
    42     my $path = Encode::encode_utf8($self->{path}->stringify); 
     42    my $path = Encode::encode_utf8($self->{path}->as_foreign('Unix')->stringify); 
    4343    if ($self->is_absolute) { 
    4444        return URI->new("file://localhost$path");