Changeset 25681

Timestamp:

12/02/08 16:38:24 (5 weeks ago)

Author:

charsbar

Message:

Path-Extended: let's behave

Files:

• lang/perl/Path-Extended/trunk/lib/Path/Extended/Entity.pm (modified) (2 diffs)

lang/perl/Path-Extended/trunk/lib/Path/Extended/Entity.pm

@@ -64 +64 @@
   my ($self, %options) = @_;
 
-  my $path = File::Spec->canonpath( $self->{path} );
+  my $path = File::Spec->canonpath( $self->_path );
      $path = $self->_unixify($path) unless $options{native};
 
@@ -73 +73 @@
   my ($self, %options) = @_;
 
-  my $path = File::Spec->abs2rel( $self->{path}, $options{base} );
+  my $path = File::Spec->abs2rel( $self->_path, $options{base} );
      $path = $self->_unixify($path) unless $options{native};