[Bast-commits] r8439 - DBIx-Class-Journal/1.000/trunk/lib/DBIx/Class/Schema

[frew at dev.catalyst.perl.org]

Author: frew
Date: 2010-01-27 07:06:09 +0000 (Wed, 27 Jan 2010)
New Revision: 8439

Modified:
   DBIx-Class-Journal/1.000/trunk/lib/DBIx/Class/Schema/Journal.pm
Log:
replace silly, clever code

Modified: DBIx-Class-Journal/1.000/trunk/lib/DBIx/Class/Schema/Journal.pm
===================================================================
--- DBIx-Class-Journal/1.000/trunk/lib/DBIx/Class/Schema/Journal.pm	2010-01-27 06:41:26 UTC (rev 8438)
+++ DBIx-Class-Journal/1.000/trunk/lib/DBIx/Class/Schema/Journal.pm	2010-01-27 07:06:09 UTC (rev 8439)
@@ -116,7 +116,7 @@
     my $source = $self->source($s_name);
 
     foreach my $audit (qw(AuditLog AuditHistory)) {
-        my $audit_source = join("", $s_name, $audit);
+        my $audit_source = $s_name.$audit;
         my $class = blessed($journal_schema) . "::$audit_source";
 
 		  Class::C3::Componentised->inject_base($class, "DBIx::Class::Schema::Journal::DB::$audit");