[Catalyst-commits] r8929 - in trunk/Catalyst-Model-File: . lib/Catalyst/Model

[ash at dev.catalyst.perl.org]

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