From 2e10fe80846e7911976d686cbc87a9b7d78da559 Mon Sep 17 00:00:00 2001 From: Aaron Trevena Date: Fri, 13 Jan 2006 19:02:46 +0000 Subject: [PATCH] added a couple of requisites to the makefile git-svn-id: http://svn.maypole.perl.org/Maypole/trunk@451 48953598-375a-da11-a14b-00016c27c3ee --- META.yml | 1 + Makefile.PL | 2 ++ lib/Maypole/Components.pm | 3 ++- 3 files changed, 5 insertions(+), 1 deletion(-) diff --git a/META.yml b/META.yml index 1b91c7e..5188168 100644 --- a/META.yml +++ b/META.yml @@ -17,6 +17,7 @@ requires: Class::DBI::Plugin::RetrieveAll: 0 Class::DBI::SQLite: 0 Digest::MD5: 0 + File::MMagic::XS: 0.08 HTTP::Body: 0.5 HTTP::Headers: 1.59 Template: 0 diff --git a/Makefile.PL b/Makefile.PL index 37f3ad9..9f104ff 100644 --- a/Makefile.PL +++ b/Makefile.PL @@ -17,6 +17,8 @@ WriteMakefile( Class::DBI => 0.96, Class::DBI::SQLite => 0, CGI::Untaint => 0, + CGI::Untaint::date => 0, + CGI::Untaint::email => 0, UNIVERSAL::moniker => 0, UNIVERSAL::require => 0, URI => 0, diff --git a/lib/Maypole/Components.pm b/lib/Maypole/Components.pm index 48c54c7..31d6ac2 100644 --- a/lib/Maypole/Components.pm +++ b/lib/Maypole/Components.pm @@ -1,10 +1,11 @@ package Maypole::Components; -use base 'Maypole'; use strict; use warnings; use URI; use URI::QueryParam; +our @ISA = qw(Maypole); + sub new { my ($class,$r) = @_; my $self = bless { config => $r->config, parent => $r }, $class; -- 2.39.5