Changeset 25664

Timestamp:

12/02/08 12:23:58 (5 weeks ago)

Author:

miyagawa

Message:

override open. God damn it

Files:

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

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

@@ -65 +65 @@
 
     Encode::encode($encoding, $self->{path}->stringify);
+}
+
+sub open {
+    my $self = shift;
+    my $class = $self->is_dir ? "IO::Dir" : "IO::File";
+    $class->new($self->stringify, @_);
 }