Changeset 30885
- Timestamp:
- 03/06/09 13:40:14 (4 years ago)
- Location:
- lang/perl/Path-Extended/trunk
- Files:
-
- 4 modified
-
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)
Legend:
- Unmodified
- Added
- Removed
-
lang/perl/Path-Extended/trunk/Changes
r30866 r30885 1 1 Revision history for Path-Extended 2 3 0.09 2009/03/06 4 - "mtime" option of "save" didn't work well. 2 5 3 6 0.08 2009/03/05 -
lang/perl/Path-Extended/trunk/lib/Path/Extended.pm
r30866 r30885 7 7 use Path::Extended::Dir; 8 8 9 our $VERSION = '0.0 8';9 our $VERSION = '0.09'; 10 10 11 11 our @EXPORT = our @EXPORT_OK = qw( file dir ); -
lang/perl/Path-Extended/trunk/lib/Path/Extended/File.pm
r30855 r30885 247 247 248 248 if ( $options->{mtime} ) { 249 $self-> utime( $options->{mtime} );249 $self->mtime( $options->{mtime} ); 250 250 } 251 251 -
lang/perl/Path-Extended/trunk/t/lib/Path/Extended/Test/File/Slurp.pm
r21995 r30885 74 74 75 75 $file->unlink; 76 } 76 77 78 sub mtime : Tests(2) { 79 my $class = shift; 80 81 my $file = file('t/tmp/slurp.txt'); 82 ok $file->save("first line\nsecond line\n", mtime => time - 30000), $class->message('file saved'); 83 ok $file->mtime < time - 10000, $class->message('mtime worked'); 84 85 $file->unlink; 77 86 } 78 87
![(please configure the [header_logo] section in trac.ini)](/share/chrome/site/your_project_logo.png)