[Bast-commits] r9214 - SQL-Abstract/1.x/trunk/lib/SQL

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2010-04-26 08:54:59 +0100 (Mon, 26 Apr 2010)
New Revision: 9214

Modified:
   SQL-Abstract/1.x/trunk/lib/SQL/Abstract.pm
Log:
Stupid omission

Modified: SQL-Abstract/1.x/trunk/lib/SQL/Abstract.pm
===================================================================
--- SQL-Abstract/1.x/trunk/lib/SQL/Abstract.pm	2010-04-25 16:31:37 UTC (rev 9213)
+++ SQL-Abstract/1.x/trunk/lib/SQL/Abstract.pm	2010-04-26 07:54:59 UTC (rev 9214)
@@ -1170,7 +1170,7 @@
     $n_steps++ if $ref;
   }
 
-  return $ref . ('REF' x $n_steps);
+  return ($ref||'SCALAR') . ('REF' x $n_steps);
 }
 
 sub _try_refkind {