[Bast-commits] r4086 - DBIx-Class-Fixtures/1.000/trunk/lib/DBIx/Class

[captainL at dev.catalyst.perl.org]

Author: captainL
Date: 2008-02-19 12:23:49 +0000 (Tue, 19 Feb 2008)
New Revision: 4086

Modified:
   DBIx-Class-Fixtures/1.000/trunk/lib/DBIx/Class/Fixtures.pm
Log:
fixed minor temp dir bug

Modified: DBIx-Class-Fixtures/1.000/trunk/lib/DBIx/Class/Fixtures.pm
===================================================================
--- DBIx-Class-Fixtures/1.000/trunk/lib/DBIx/Class/Fixtures.pm	2008-02-18 20:13:05 UTC (rev 4085)
+++ DBIx-Class-Fixtures/1.000/trunk/lib/DBIx/Class/Fixtures.pm	2008-02-19 12:23:49 UTC (rev 4086)
@@ -416,7 +416,7 @@
   my $schema = $params->{schema};
 
   $self->msg("generating  fixtures");
-  my $tmp_output_dir = dir($output_dir, '-~dump~-');
+  my $tmp_output_dir = dir($output_dir, '-~dump~-' . $<);
 
   if (-e $tmp_output_dir) {
     $self->msg("- clearing existing $tmp_output_dir");