From 5a2a936da63a8463429f3cd486104d5410e73c04 Mon Sep 17 00:00:00 2001
From: Aaron Trevena <aaron.trevena@gmail.com>
Date: Wed, 11 Jan 2006 17:45:39 +0000
Subject: [PATCH] fixing Components integration

git-svn-id: http://svn.maypole.perl.org/Maypole/trunk@448 48953598-375a-da11-a14b-00016c27c3ee
---
 lib/Maypole.pm            | 3 ++-
 lib/Maypole/Components.pm | 3 ++-
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/lib/Maypole.pm b/lib/Maypole.pm
index 2f609d8..3fcfd15 100644
--- a/lib/Maypole.pm
+++ b/lib/Maypole.pm
@@ -457,8 +457,9 @@ sub handler : method  {
 }
 
 sub component {
+  my ($r,$path) = @_;
   my $component = Maypole::Components->new(@_);
-  return $component->handler;
+  return $component->handler($path);
 }
 
 
diff --git a/lib/Maypole/Components.pm b/lib/Maypole/Components.pm
index b679e8d..48c54c7 100644
--- a/lib/Maypole/Components.pm
+++ b/lib/Maypole/Components.pm
@@ -6,12 +6,13 @@ use URI;
 use URI::QueryParam;
 
 sub new {
-    my ($class,$r, $path) = @_;
+    my ($class,$r) = @_;
     my $self = bless { config => $r->config, parent => $r }, $class;
 }
 
 sub handler {
     my $self = shift;
+    my $path = shift;
     my $url = URI->new($path);
     $self->{path} = $url->path;
     $self->parse_path;
-- 
2.39.2