Changeset 30866 for lang/perl/Path-Extended

Timestamp:

03/05/09 21:36:20 (4 years ago)

Author:

charsbar

Message:

Path-Extended: fixed relative/absolute issue; 0.08 -> CPAN

Location:

lang/perl/Path-Extended/trunk

Files:

• Changes (modified) (1 diff)
• lib/Path/Extended.pm (modified) (1 diff)
• lib/Path/Extended/Entity.pm (modified) (1 diff)
• t/lib/Path/Extended/Test/Dir/Find.pm (modified) (2 diffs)

lang/perl/Path-Extended/trunk/Changes

@@ -1 +1 @@
 Revision history for Path-Extended
+
+0.08 2009/03/05
+  - fixed relative/absolute path issue
 
 0.07 2009/03/05

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

@@ -7 +7 @@
 use Path::Extended::Dir;
 
-our $VERSION = '0.07';
+our $VERSION = '0.08';
 
 our @EXPORT = our @EXPORT_OK = qw( file dir );

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

@@ -36 +36 @@
     $item = $class->new( File::Basename::dirname($self->absolute) );
   }
+  elsif ( @parts && File::Spec->file_name_is_absolute($parts[0]) ) {
+    $item = $class->new( @parts );
+  }
   else {
     $item = $class->new( $self->absolute, @parts );

lang/perl/Path-Extended/trunk/t/lib/Path/Extended/Test/Dir/Find.pm

@@ -6 +6 @@
 use Path::Extended;
 
-sub find : Tests(4) {
+sub find : Tests(7) {
   my $class = shift;
 
   my $dir = dir('t/tmp/find')->mkdir;
+  ok $dir->exists, $class->message('created '.$dir->relative);
 
   my $file1 = file('t/tmp/find/some.txt');
      $file1->save('some content');
+  ok $file1->exists, $class->message('created '.$file1->relative);
 
   my $file2 = file('t/tmp/find/other.txt');
      $file2->save('other content');
+  ok $file2->exists, $class->message('created '.$file2->relative);
 
   my @files = $dir->find('*.txt');
@@ -35 +38 @@
 }
 
-sub find_dir : Tests(4) {
+sub find_dir : Tests(6) {
   my $class = shift;
 
   my $dir  = dir('t/tmp/find_dir');
   my $dir1 = dir('t/tmp/find_dir/found')->mkdir;
+  ok $dir1->exists, $class->message('created '.$dir1->relative);
+
   my $dir2 = dir('t/tmp/find_dir/not_found')->mkdir;
+  ok $dir2->exists, $class->message('created '.$dir2->relative);
 
   my $rule = '*';