[Catalyst-commits] r7303 - trunk/examples/CatalystAdvent/root/2007

[zby at dev.catalyst.perl.org]

Author: zby
Date: 2007-12-16 10:57:47 +0000 (Sun, 16 Dec 2007)
New Revision: 7303

Modified:
   trunk/examples/CatalystAdvent/root/2007/16.pod
Log:
bug fix - thanks Pedro Melo

Modified: trunk/examples/CatalystAdvent/root/2007/16.pod
===================================================================
--- trunk/examples/CatalystAdvent/root/2007/16.pod	2007-12-16 00:58:24 UTC (rev 7302)
+++ trunk/examples/CatalystAdvent/root/2007/16.pod	2007-12-16 10:57:47 UTC (rev 7303)
@@ -89,7 +89,7 @@
         if( $field =~ /(.*?)\.(.*)/ ){
             my $first = $1;
             my $rest  = $2;
-            my( $column, $join ) = parse_column( $rest );
+            my( $column, $join ) = $self->parse_column( $rest );
             if ( $join ) {
                 return $column, { $first => $join };
             }else{