r5451 - in /packages/libparams-callbackrequest-perl/trunk: Build.PL Changes META.yml README debian/changelog debian/control lib/Params/Callback.pm lib/Params/CallbackRequest.pm lib/Params/CallbackRequest/Exceptions.pm t/08apache.t
gregoa-guest at users.alioth.debian.org
gregoa-guest at users.alioth.debian.org
Fri May 18 21:48:57 UTC 2007
Author: gregoa-guest
Date: Fri May 18 21:48:57 2007
New Revision: 5451
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=5451
Log:
* New upstream release.
* Remove one of the two "perls" from Build-Depends-Indep in debian/control.
Modified:
packages/libparams-callbackrequest-perl/trunk/Build.PL
packages/libparams-callbackrequest-perl/trunk/Changes
packages/libparams-callbackrequest-perl/trunk/META.yml
packages/libparams-callbackrequest-perl/trunk/README
packages/libparams-callbackrequest-perl/trunk/debian/changelog
packages/libparams-callbackrequest-perl/trunk/debian/control
packages/libparams-callbackrequest-perl/trunk/lib/Params/Callback.pm
packages/libparams-callbackrequest-perl/trunk/lib/Params/CallbackRequest.pm
packages/libparams-callbackrequest-perl/trunk/lib/Params/CallbackRequest/Exceptions.pm
packages/libparams-callbackrequest-perl/trunk/t/08apache.t
Modified: packages/libparams-callbackrequest-perl/trunk/Build.PL
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libparams-callbackrequest-perl/trunk/Build.PL?rev=5451&op=diff
==============================================================================
--- packages/libparams-callbackrequest-perl/trunk/Build.PL (original)
+++ packages/libparams-callbackrequest-perl/trunk/Build.PL Fri May 18 21:48:57 2007
@@ -1,18 +1,19 @@
use Module::Build;
-my $build = Module::Build->new
- ( module_name => 'Params::CallbackRequest',
+my $build = Module::Build->new(
+ module_name => 'Params::CallbackRequest',
license => 'perl',
- requires => { Params::Validate => '0.59',
- Exception::Class => '1.10',
- Test::Simple => '0.17',
- },
- recommends => { Attribute::Handlers => '0.77',
- Class::ISA => 0,
- perl => '5.6.0',
- },
- build_requires => { Test::Simple => '0.17',
- },
+ requires => {
+ Params::Validate => '0.59',
+ Exception::Class => '1.10',
+ Test::Simple => '0.17',
+ Attribute::Handlers => '0.77',
+ Class::ISA => 0,
+ perl => '5.6.0',
+ },
+ build_requires => {
+ Test::Simple => '0.17',
+ },
create_makefile_pl => 'passthrough',
- );
+);
$build->create_build_script;
Modified: packages/libparams-callbackrequest-perl/trunk/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libparams-callbackrequest-perl/trunk/Changes?rev=5451&op=diff
==============================================================================
--- packages/libparams-callbackrequest-perl/trunk/Changes (original)
+++ packages/libparams-callbackrequest-perl/trunk/Changes Fri May 18 21:48:57 2007
@@ -1,9 +1,21 @@
Revision history for Perl extension Params::CallbackRequest.
+
+1.17 2007-03-27T16:21:34
+ - Updated copyright date.
+ - Now requiring (rather than recommending) Class::ISA and
+ Attribute::Handlers, since the module requires Perl 5.6 or later
+ anyway, and virtually no one will want to use the module without these
+ modules. Test failure report from David Cantrell.
+
+1.16 2007-03-26T21:25:17
+ - Fixed a bug detecting mod_perl2. Reported by Jimmy Li.
+ - Fixed a bug in the redirect() method under mod_perl2. Report and fix
+ from Jimmy Li.
1.15 2006-05-26T21:28:55
- Added the 'requester' attribute to Params::Callback. This can be
- specified by passing the 'requester' paremter to request(), and can be
- anything.
+ specified by passing the 'requester' parameter to request(), and can
+ be anything.
1.14 2006-03-02T20:07:28
- Removed an unnecessary eval block around the loading of Class::ISA
Modified: packages/libparams-callbackrequest-perl/trunk/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libparams-callbackrequest-perl/trunk/META.yml?rev=5451&op=diff
==============================================================================
--- packages/libparams-callbackrequest-perl/trunk/META.yml (original)
+++ packages/libparams-callbackrequest-perl/trunk/META.yml Fri May 18 21:48:57 2007
@@ -1,6 +1,6 @@
---
name: Params-CallbackRequest
-version: 1.15
+version: 1.17
author:
- 'David Wheeler <david at kineticode.com>'
abstract: Functional and object-oriented callback architecture
@@ -8,26 +8,25 @@
resources:
license: http://dev.perl.org/licenses/
requires:
+ Attribute::Handlers: 0.77
+ Class::ISA: 0
Exception::Class: 1.10
Params::Validate: 0.59
Test::Simple: 0.17
+ perl: 5.6.0
build_requires:
Test::Simple: 0.17
-recommends:
- Attribute::Handlers: 0.77
- Class::ISA: 0
- perl: 5.6.0
provides:
Params::Callback:
file: lib/Params/Callback.pm
- version: 1.15
+ version: 1.17
Params::CallbackRequest:
file: lib/Params/CallbackRequest.pm
- version: 1.15
+ version: 1.17
Params::CallbackRequest::Exceptions:
file: lib/Params/CallbackRequest/Exceptions.pm
- version: 1.15
-generated_by: Module::Build version 0.2801
+ version: 1.17
+generated_by: Module::Build version 0.2807
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.2.html
version: 1.2
Modified: packages/libparams-callbackrequest-perl/trunk/README
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libparams-callbackrequest-perl/trunk/README?rev=5451&op=diff
==============================================================================
--- packages/libparams-callbackrequest-perl/trunk/README (original)
+++ packages/libparams-callbackrequest-perl/trunk/README Fri May 18 21:48:57 2007
@@ -1,4 +1,4 @@
-Params/CallbackRequest version 1.15
+Params/CallbackRequest version 1.16
===================================
Params::CallbackRequest provides functional and object-oriented callbacks to
@@ -51,7 +51,7 @@
COPYRIGHT AND LICENCE
-Copyright (C) 2003-2004 David Wheeler
+Copyright (C) 2003-2007 David Wheeler
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
Modified: packages/libparams-callbackrequest-perl/trunk/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libparams-callbackrequest-perl/trunk/debian/changelog?rev=5451&op=diff
==============================================================================
--- packages/libparams-callbackrequest-perl/trunk/debian/changelog (original)
+++ packages/libparams-callbackrequest-perl/trunk/debian/changelog Fri May 18 21:48:57 2007
@@ -1,3 +1,10 @@
+libparams-callbackrequest-perl (1.17-1) unstable; urgency=low
+
+ * New upstream release.
+ * Remove one of the two "perls" from Build-Depends-Indep in debian/control.
+
+ -- gregor herrmann <gregor+debian at comodo.priv.at> Fri, 18 May 2007 23:47:46 +0200
+
libparams-callbackrequest-perl (1.15-1) unstable; urgency=low
* New upstream release.
Modified: packages/libparams-callbackrequest-perl/trunk/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libparams-callbackrequest-perl/trunk/debian/control?rev=5451&op=diff
==============================================================================
--- packages/libparams-callbackrequest-perl/trunk/debian/control (original)
+++ packages/libparams-callbackrequest-perl/trunk/debian/control Fri May 18 21:48:57 2007
@@ -2,7 +2,7 @@
Section: perl
Priority: optional
Build-Depends: debhelper (>= 5.0.0)
-Build-Depends-Indep: perl (>= 5.8.0-7), libmodule-build-perl, perl (>= 5.8.0-7), libexception-class-perl, libparams-validate-perl, libtest-pod-perl
+Build-Depends-Indep: perl (>= 5.8.0-7), libmodule-build-perl, libexception-class-perl, libparams-validate-perl, libtest-pod-perl
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
Uploaders: Jonas Genannt <jonas.genannt at capi2name.de>, gregor herrmann <gregor+debian at comodo.priv.at>
Standards-Version: 3.7.2
Modified: packages/libparams-callbackrequest-perl/trunk/lib/Params/Callback.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libparams-callbackrequest-perl/trunk/lib/Params/Callback.pm?rev=5451&op=diff
==============================================================================
--- packages/libparams-callbackrequest-perl/trunk/lib/Params/Callback.pm (original)
+++ packages/libparams-callbackrequest-perl/trunk/lib/Params/Callback.pm Fri May 18 21:48:57 2007
@@ -5,7 +5,7 @@
use Params::CallbackRequest::Exceptions (abbr => [qw(throw_bad_params)]);
use vars qw($VERSION);
-$VERSION = '1.15';
+$VERSION = '1.17';
use constant DEFAULT_PRIORITY => 5;
use constant REDIRECT => 302;
@@ -17,12 +17,12 @@
my $is_num = { 'valid priority' => sub { $_[0] =~ /^\d$/ } };
-# Use Apache::RequestRec for mod_perl 2
-my $ap_req_class = defined $mod_perl::VERSION && $mod_perl::VERSION >= 1.99
- ? 'Apache::RequestRec'
- : defined $mod_perl2::VERSION
+# Use Apache2?::RequestRec for mod_perl 2
+use constant APREQ_CLASS => exists $ENV{MOD_PERL_API_VERSION}
+ ? $ENV{MOD_PERL_API_VERSION} >= 2
? 'Apache2::RequestRec'
- : 'Apache';
+ : 'Apache::RequestRec'
+ : 'Apache';
BEGIN {
# The object-oriented interface is only supported with the use of
@@ -59,7 +59,7 @@
},
apache_req => {
- isa => $ap_req_class,
+ isa => APREQ_CLASS,
optional => 1,
},
@@ -354,7 +354,7 @@
if (my $r = $self->apache_req) {
$r->method('GET');
$r->headers_in->unset('Content-length');
- $r->err_header_out( Location => $url );
+ $r->err_headers_out->add( Location => $url );
}
$self->abort($status) unless $wait;
}
@@ -1045,7 +1045,7 @@
=head1 COPYRIGHT AND LICENSE
-Copyright 2003-2004 David Wheeler
+Copyright 2003-2007 David Wheeler
This library is free software; you can redistribute it and/or modify it under
the same terms as Perl itself.
Modified: packages/libparams-callbackrequest-perl/trunk/lib/Params/CallbackRequest.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libparams-callbackrequest-perl/trunk/lib/Params/CallbackRequest.pm?rev=5451&op=diff
==============================================================================
--- packages/libparams-callbackrequest-perl/trunk/lib/Params/CallbackRequest.pm (original)
+++ packages/libparams-callbackrequest-perl/trunk/lib/Params/CallbackRequest.pm Fri May 18 21:48:57 2007
@@ -7,7 +7,7 @@
throw_cb_exec)]);
use vars qw($VERSION);
-$VERSION = '1.15';
+$VERSION = '1.17';
BEGIN {
for my $attr (qw( default_priority
@@ -1029,7 +1029,7 @@
=head1 COPYRIGHT AND LICENSE
-Copyright 2003-2004 David Wheeler
+Copyright 2003-2007 David Wheeler
This library is free software; you can redistribute it and/or modify it under
the same terms as Perl itself.
Modified: packages/libparams-callbackrequest-perl/trunk/lib/Params/CallbackRequest/Exceptions.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libparams-callbackrequest-perl/trunk/lib/Params/CallbackRequest/Exceptions.pm?rev=5451&op=diff
==============================================================================
--- packages/libparams-callbackrequest-perl/trunk/lib/Params/CallbackRequest/Exceptions.pm (original)
+++ packages/libparams-callbackrequest-perl/trunk/lib/Params/CallbackRequest/Exceptions.pm Fri May 18 21:48:57 2007
@@ -2,7 +2,7 @@
use strict;
use vars qw($VERSION);
-$VERSION = '1.15';
+$VERSION = '1.17';
use Exception::Class ( 'Params::Callback::Exception' =>
{ description => 'Params::Callback exception',
@@ -224,7 +224,7 @@
=head1 COPYRIGHT AND LICENSE
-Copyright 2003-2004 David Wheeler
+Copyright 2003-2007 David Wheeler
This library is free software; you can redistribute it and/or modify it under
the same terms as Perl itself.
Modified: packages/libparams-callbackrequest-perl/trunk/t/08apache.t
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libparams-callbackrequest-perl/trunk/t/08apache.t?rev=5451&op=diff
==============================================================================
--- packages/libparams-callbackrequest-perl/trunk/t/08apache.t (original)
+++ packages/libparams-callbackrequest-perl/trunk/t/08apache.t Fri May 18 21:48:57 2007
@@ -1,6 +1,6 @@
#!perl -w
-# $Id: 08apache.t 682 2004-09-28 05:59:10Z theory $
+# $Id: 08apache.t 3047 2006-07-18 18:14:13Z theory $
use strict;
use Test::More;
@@ -10,7 +10,7 @@
BEGIN {
plan skip_all => 'Testing of apache_req requires Apache::FakeRequest'
unless eval { require Apache::FakeRequest };
- plan tests => 14;
+ plan tests => 15;
use_ok('Params::CallbackRequest');
}
@@ -21,6 +21,10 @@
package Params::Callback::Test::Headers;
sub unset {}
sub new { bless {} }
+sub add {
+ my ($self, $key, $val) = @_;
+ $self->{$key} = $val;
+}
package main;
@@ -51,15 +55,20 @@
##############################################################################
# Create the callback request object.
-ok( my $cb_request = Params::CallbackRequest->new( callbacks => $cbs),
+ok( my $cb_request = Params::CallbackRequest->new( callbacks => $cbs ),
"Construct CBExec object" );
isa_ok($cb_request, 'Params::CallbackRequest' );
# Create an Apache request object.
-ok( my $headers = Params::Callback::Test::Headers->new,
- "Create headers object" );
+ok( my $headers_in = Params::Callback::Test::Headers->new,
+ "Create headers_in object" );
+ok( my $err_headers_out = Params::Callback::Test::Headers->new,
+ "Create err_headers_out object" );
-ok( my $apache_req = Apache::FakeRequest->new( headers_in => $headers ),
+ok( my $apache_req = Apache::FakeRequest->new(
+ headers_in => $headers_in,
+ err_headers_out => $err_headers_out,
+),
"Create apache request object" );
# Execute the delayed redirection callback.
@@ -68,9 +77,10 @@
is( $cb_request->request(\%params, apache_req => $apache_req), 302,
"Execute delayed redir callback" );
-# Check apache request values (too bad Apache::FakeRequest can't handle
-# parameter lists. This should be good enough, though.
-is( delete $apache_req->{err_header_out}, 'Location', "Check err_header_out" );
+# Check apache request values.
+is_deeply $apache_req->{err_headers_out}, { Location => $url },
+ "Check err_header_out";
+delete $apache_req->{err_headers_out}{Location};
is( delete $apache_req->{method}, 'GET', "Check request method" );
##############################################################################
@@ -80,7 +90,9 @@
"Execute instant redir callback" );
# Check the Apache settings again.
-is( delete $apache_req->{err_header_out}, 'Location', "Check err_header_out" );
+is_deeply $apache_req->{err_headers_out}, { Location => $url },
+ "Check err_header_out";
+delete $apache_req->{err_headers_out}{Location};
is( delete $apache_req->{method}, 'GET', "Check request method" );
##############################################################################
More information about the Pkg-perl-cvs-commits
mailing list