[Catalyst-commits] r9474 - trunk/examples/SmokeServer/lib/SmokeServer/Controller

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2009-03-09 11:18:42 +0000 (Mon, 09 Mar 2009)
New Revision: 9474

Modified:
   trunk/examples/SmokeServer/lib/SmokeServer/Controller/Smoke.pm
Log:
Missed bits when removing BindLex

Modified: trunk/examples/SmokeServer/lib/SmokeServer/Controller/Smoke.pm
===================================================================
--- trunk/examples/SmokeServer/lib/SmokeServer/Controller/Smoke.pm	2009-03-09 10:29:17 UTC (rev 9473)
+++ trunk/examples/SmokeServer/lib/SmokeServer/Controller/Smoke.pm	2009-03-09 11:18:42 UTC (rev 9474)
@@ -43,7 +43,7 @@
 
 sub index : Private {
     my ( $self, $c ) = @_;
-    my $c->stash->{template} = "list.tt";
+    $c->stash->{template} = "list.tt";
     $c->forward("list");
 }
 
@@ -53,13 +53,13 @@
     my $tag = $c->request->param("tag");
     $c->stash->{tag} = $tag = shift @args if @args;
 
-    my @group_tags : Stashed;
+    my @group_tags;
     if ( exists $c->req->params->{group_tags} ) {
         @group_tags = Text::Tags::Parser->new->parse_tags( $c->req->param("group_tags") || "" );
     } else {
-        my @default_group_tags : Session;
-        @group_tags = @default_group_tags;
+        @group_tags = @{ $c->session->{default_group_tags} };
     }
+    $c->stash->{group_tags} = \@group_tags;
 
     # TODO filter by multiple tags...
     #  intersection as well as union in SQL