[Bast-commits] r4293 - DBIx-Class-Fixtures/1.001/trunk/lib/DBIx/Class

captainL at dev.catalyst.perl.org captainL at dev.catalyst.perl.org
Fri Apr 25 17:27:03 BST 2008


Author: captainL
Date: 2008-04-25 17:27:03 +0100 (Fri, 25 Apr 2008)
New Revision: 4293

Modified:
   DBIx-Class-Fixtures/1.001/trunk/lib/DBIx/Class/Fixtures.pm
Log:
dir separators in pks no longer cause crash

Modified: DBIx-Class-Fixtures/1.001/trunk/lib/DBIx/Class/Fixtures.pm
===================================================================
--- DBIx-Class-Fixtures/1.001/trunk/lib/DBIx/Class/Fixtures.pm	2008-04-25 16:15:50 UTC (rev 4292)
+++ DBIx-Class-Fixtures/1.001/trunk/lib/DBIx/Class/Fixtures.pm	2008-04-25 16:27:03 UTC (rev 4293)
@@ -568,8 +568,12 @@
   # write dir and gen filename
   my $source_dir = dir($params->{set_dir}, lc($object->result_source->from));
   mkdir($source_dir->stringify, 0777);
-  my $file = file($source_dir, join('-', map { $object->get_column($_) } sort $object->primary_columns) . '.fix');
 
+  # strip dir separators from file name
+  my $file = file($source_dir, join('-', map { 
+    ( my $a = $object->get_column($_) ) =~ s|[/\\]|_|g; $a;
+  } sort $object->primary_columns) . '.fix');
+
   # write file
   my $exists = (-e $file->stringify) ? 1 : 0;
   unless ($exists) {




More information about the Bast-commits mailing list