diff options
| author | Lars Thegler <lth@FreeBSD.org> | 2005-09-17 11:07:04 +0000 |
|---|---|---|
| committer | Lars Thegler <lth@FreeBSD.org> | 2005-09-17 11:07:04 +0000 |
| commit | 08975d244d6ae1257bc3a1d56f1ee2c058631923 (patch) | |
| tree | 9e74e2961d314ef72214c5e0ceccb96bc11dbcd6 /databases/p5-Class-DBI-AsForm | |
| parent | b1e421026014fb1ea1c2ecc7465b3b2ab6632ba7 (diff) | |
Notes
Diffstat (limited to 'databases/p5-Class-DBI-AsForm')
| -rw-r--r-- | databases/p5-Class-DBI-AsForm/Makefile | 4 | ||||
| -rw-r--r-- | databases/p5-Class-DBI-AsForm/distinfo | 4 | ||||
| -rw-r--r-- | databases/p5-Class-DBI-AsForm/files/500503-AsForm.pm | 39 |
3 files changed, 11 insertions, 36 deletions
diff --git a/databases/p5-Class-DBI-AsForm/Makefile b/databases/p5-Class-DBI-AsForm/Makefile index e530990cb106..b78649295a20 100644 --- a/databases/p5-Class-DBI-AsForm/Makefile +++ b/databases/p5-Class-DBI-AsForm/Makefile @@ -5,7 +5,7 @@ # $FreeBSD$ PORTNAME= Class-DBI-AsForm -PORTVERSION= 2.41 +PORTVERSION= 2.42 CATEGORIES= databases perl5 MASTER_SITES= ${MASTER_SITE_PERL_CPAN} MASTER_SITE_SUBDIR= Class @@ -27,6 +27,8 @@ MAN3= Class::DBI::AsForm.3 .if ${PERL_LEVEL} < 500600 EXTRA_PATCHES= ${PATCHDIR}/500503-AsForm.pm +post-patch: + @${RM} ${WRKSRC}/lib/Class/DBI/AsForm.pm.orig .endif .include <bsd.port.post.mk> diff --git a/databases/p5-Class-DBI-AsForm/distinfo b/databases/p5-Class-DBI-AsForm/distinfo index 8dca25a5fad7..800d7dd6a4f3 100644 --- a/databases/p5-Class-DBI-AsForm/distinfo +++ b/databases/p5-Class-DBI-AsForm/distinfo @@ -1,2 +1,2 @@ -MD5 (Class-DBI-AsForm-2.41.tar.gz) = 123ef74dd79a632b881189334cfa6827 -SIZE (Class-DBI-AsForm-2.41.tar.gz) = 4104 +MD5 (Class-DBI-AsForm-2.42.tar.gz) = 5799ef3305aff13b911b2f13f36951f5 +SIZE (Class-DBI-AsForm-2.42.tar.gz) = 4302 diff --git a/databases/p5-Class-DBI-AsForm/files/500503-AsForm.pm b/databases/p5-Class-DBI-AsForm/files/500503-AsForm.pm index 905e18b07978..3f84859e4e74 100644 --- a/databases/p5-Class-DBI-AsForm/files/500503-AsForm.pm +++ b/databases/p5-Class-DBI-AsForm/files/500503-AsForm.pm @@ -1,9 +1,12 @@ ---- AsForm.pm.orig Mon Dec 27 16:43:44 2004 -+++ AsForm.pm Wed Dec 29 20:31:57 2004 -@@ -1,19 +1,18 @@ +--- lib/Class/DBI/AsForm.pm.orig Wed Sep 7 11:53:35 2005 ++++ lib/Class/DBI/AsForm.pm Wed Sep 7 11:55:48 2005 +@@ -1,18 +1,17 @@ package Class::DBI::AsForm; -use 5.006; +-our $VERSION = '2.42'; ++use vars qw($VERSION $OLD_STYLE @EXPORT); ++$VERSION = '2.42'; use strict; -use warnings; @@ -15,38 +18,8 @@ -our $OLD_STYLE = 0; -our @EXPORT = qw( to_cgi to_field _to_textarea _to_textfield _to_select -+use vars qw($OLD_STYLE @EXPORT $VERSION); +$OLD_STYLE = 0; +@EXPORT = qw( to_cgi to_field _to_textarea _to_textfield _to_select type_of ); --our $VERSION = '2.41'; -+$VERSION = '2.41'; =head1 NAME - -@@ -106,14 +105,14 @@ - my ($self, $col) = @_; - my $a = - HTML::Element->new("textarea", name => $col, rows => "3", cols => "22"); -- if (ref $self) { $a->push_content($self->$col) } -+ if (ref $self) { $a->push_content($self->$col()) } - $OLD_STYLE && return $a->as_HTML; - $a; - } - - sub _to_textfield { - my ($self, $col) = @_; -- my $value = ref $self && $self->$col; -+ my $value = ref $self && $self->$col(); - my $a = HTML::Element->new("input", type => "text", name => $col); - $a->attr("value" => $value) if $value; - $OLD_STYLE && return $a->as_HTML; -@@ -129,7 +128,7 @@ - my $sel = HTML::Element->new("option", value => $_->id); - $sel->attr("selected" => "selected") - if ref $self -- and eval { $_->id eq $self->$col->id }; -+ and eval { $_->id eq $self->$col()->id }; - $sel->push_content($_->stringify_self); - $a->push_content($sel); - } |