Changeset 25675

Timestamp:

12/02/08 14:36:15 (5 weeks ago)

Author:

mattn

Message:

override next()

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

@@ -89 +89 @@
 }
 
+sub next {
+    my $self = shift;
+    $self->{path}->{dh} = $self->open unless $self->{path}->{dh};
+    my $file = $self->{path}->next;
+    $file = Encode::encode($encoding, $file) if $file;
+    $file;
+}
+
 use overload (
     q[""] => 'stringify',