[Bast-commits] r5911 - DBIx-Class-Preview/1.000/trunk/lib/DBIx/Class/ResultSource/Table

[lukes at dev.catalyst.perl.org]

Author: lukes
Date: 2009-04-19 15:07:17 +0100 (Sun, 19 Apr 2009)
New Revision: 5911

Modified:
   DBIx-Class-Preview/1.000/trunk/lib/DBIx/Class/ResultSource/Table/Previewed.pm
Log:
changed previewed source name to *::preview

Modified: DBIx-Class-Preview/1.000/trunk/lib/DBIx/Class/ResultSource/Table/Previewed.pm
===================================================================
--- DBIx-Class-Preview/1.000/trunk/lib/DBIx/Class/ResultSource/Table/Previewed.pm	2009-04-19 12:35:33 UTC (rev 5910)
+++ DBIx-Class-Preview/1.000/trunk/lib/DBIx/Class/ResultSource/Table/Previewed.pm	2009-04-19 14:07:17 UTC (rev 5911)
@@ -23,7 +23,7 @@
     $new_source->relationship_info($_)->{attrs}{cascade_delete} = 0
 			for $new_source->relationships;
     my $new_source_name =
-			$self->source_name . '->preview';
+			$self->source_name . '::preview';
     $schema->register_extra_source( $new_source_name => $new_source );
 	}
   return $self->next::method(@_);
@@ -34,7 +34,7 @@
 
   my $schema = $self->schema || die "No schema";
   my $partition =
-    $schema->source( $self->source_name . '->preview' );
+    $schema->source( $self->source_name . '::preview' );
   return $partition;
 }