[Catalyst-commits] r8929 - in trunk/Catalyst-Model-File: .
lib/Catalyst/Model
ash at dev.catalyst.perl.org
ash at dev.catalyst.perl.org
Sat Dec 20 16:50:33 GMT 2008
Author: ash
Date: 2008-12-20 16:50:33 +0000 (Sat, 20 Dec 2008)
New Revision: 8929
Modified:
trunk/Catalyst-Model-File/Changes
trunk/Catalyst-Model-File/lib/Catalyst/Model/File.pm
Log:
Fix (hopefully) win32 test failures
Modified: trunk/Catalyst-Model-File/Changes
===================================================================
--- trunk/Catalyst-Model-File/Changes 2008-12-20 12:54:47 UTC (rev 8928)
+++ trunk/Catalyst-Model-File/Changes 2008-12-20 16:50:33 UTC (rev 8929)
@@ -1,3 +1,7 @@
-0.07 -
+
+0.08 -
+ Fix Win32 test failures by forcing stringifies to Unix output format
+
+0.07 - 2008/12/17
+ Make the return from list stringify relative to cwd, but make operations
(open, stat, etc.) work on the actual file
Modified: trunk/Catalyst-Model-File/lib/Catalyst/Model/File.pm
===================================================================
--- trunk/Catalyst-Model-File/lib/Catalyst/Model/File.pm 2008-12-20 12:54:47 UTC (rev 8928)
+++ trunk/Catalyst-Model-File/lib/Catalyst/Model/File.pm 2008-12-20 16:50:33 UTC (rev 8929)
@@ -126,7 +126,7 @@
bless $entity, 'Catalyst::Model::File::File';
}
- $entity->{stringify_as} = $entity->relative($self->{_dir})->stringify;
+ $entity->{stringify_as} = $entity->relative($self->{_dir})->as_foreign('Unix')->stringify;
return $entity;
}
@@ -187,7 +187,7 @@
sub pwd { shift->directory(@_) }
sub directory {
- return shift->{directory};
+ return shift->{directory}->as_foreign('Unix');
}
=head2 parent
More information about the Catalyst-commits
mailing list