[Bast-commits] r7110 - DBIx-Class/0.08/branches/mssql_storage_minor_refactor/lib/DBIx/Class

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2009-07-24 06:49:54 +0000 (Fri, 24 Jul 2009)
New Revision: 7110

Modified:
   DBIx-Class/0.08/branches/mssql_storage_minor_refactor/lib/DBIx/Class/SQLAHacks.pm
Log:
fix a warning in SQLAHacks

Modified: DBIx-Class/0.08/branches/mssql_storage_minor_refactor/lib/DBIx/Class/SQLAHacks.pm
===================================================================
--- DBIx-Class/0.08/branches/mssql_storage_minor_refactor/lib/DBIx/Class/SQLAHacks.pm	2009-07-24 06:46:16 UTC (rev 7109)
+++ DBIx-Class/0.08/branches/mssql_storage_minor_refactor/lib/DBIx/Class/SQLAHacks.pm	2009-07-24 06:49:54 UTC (rev 7110)
@@ -170,7 +170,8 @@
       $quoted_alias = $self->_quote ('column_' . (@inner_select + 1) );
     }
     # column name seen more than once - alias it
-    elsif ($orig_colname && ($seen_names{$orig_colname} > 1) ) {
+    elsif ($orig_colname &&
+          ($seen_names{$orig_colname} && $seen_names{$orig_colname} > 1) ) {
       $quoted_alias = $self->_quote ("${table}__${orig_colname}");
     }