Changeset 30885

Timestamp:

03/06/09 13:40:14 (4 years ago)

Author:

charsbar

Message:

Path-Extended: "mtime" option for "save" didn't work; 0.09 -> CPAN

Location:

lang/perl/Path-Extended/trunk

Files:

• Changes (modified) (1 diff)
• lib/Path/Extended.pm (modified) (1 diff)
• lib/Path/Extended/File.pm (modified) (1 diff)
• t/lib/Path/Extended/Test/File/Slurp.pm (modified) (1 diff)

lang/perl/Path-Extended/trunk/Changes

@@ -1 +1 @@
 Revision history for Path-Extended
+
+0.09 2009/03/06
+  - "mtime" option of "save" didn't work well.
 
 0.08 2009/03/05

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

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

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

@@ -247 +247 @@
 
   if ( $options->{mtime} ) {
-    $self->utime( $options->{mtime} );
+    $self->mtime( $options->{mtime} );
   }
 

lang/perl/Path-Extended/trunk/t/lib/Path/Extended/Test/File/Slurp.pm

@@ -74 +74 @@
 
   $file->unlink;
+}
 
+sub mtime : Tests(2) {
+  my $class = shift;
+
+  my $file = file('t/tmp/slurp.txt');
+  ok $file->save("first line\nsecond line\n", mtime => time - 30000), $class->message('file saved');
+  ok $file->mtime < time - 10000, $class->message('mtime worked');
+
+  $file->unlink;
 }