r36379 - in /branches/upstream/libcgi-simple-perl/current: ./ inc/ lib/CGI/ lib/CGI/Simple/ t/
ryan52-guest at users.alioth.debian.org
ryan52-guest at users.alioth.debian.org
Mon May 25 09:27:53 UTC 2009
Author: ryan52-guest
Date: Mon May 25 09:27:49 2009
New Revision: 36379
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=36379
Log:
[svn-upgrade] Integrating new upstream version, libcgi-simple-perl (1.110)
Added:
branches/upstream/libcgi-simple-perl/current/inc/
branches/upstream/libcgi-simple-perl/current/inc/MyBuilder.pm
branches/upstream/libcgi-simple-perl/current/t/110.bad-upload.t
branches/upstream/libcgi-simple-perl/current/t/manifest.t
branches/upstream/libcgi-simple-perl/current/t/test_file.txt
Modified:
branches/upstream/libcgi-simple-perl/current/Build.PL
branches/upstream/libcgi-simple-perl/current/Changes
branches/upstream/libcgi-simple-perl/current/MANIFEST
branches/upstream/libcgi-simple-perl/current/META.yml
branches/upstream/libcgi-simple-perl/current/README
branches/upstream/libcgi-simple-perl/current/SIGNATURE
branches/upstream/libcgi-simple-perl/current/lib/CGI/Simple.pm
branches/upstream/libcgi-simple-perl/current/lib/CGI/Simple/Cookie.pm
branches/upstream/libcgi-simple-perl/current/lib/CGI/Simple/Standard.pm
branches/upstream/libcgi-simple-perl/current/lib/CGI/Simple/Util.pm
Modified: branches/upstream/libcgi-simple-perl/current/Build.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcgi-simple-perl/current/Build.PL?rev=36379&op=diff
==============================================================================
--- branches/upstream/libcgi-simple-perl/current/Build.PL (original)
+++ branches/upstream/libcgi-simple-perl/current/Build.PL Mon May 25 09:27:49 2009
@@ -1,7 +1,11 @@
use strict;
use Module::Build;
-my $builder = Module::Build->new(
+use lib 'inc';
+
+use MyBuilder;
+
+my $builder = MyBuilder->new(
module_name => 'CGI::Simple',
sign => 1,
license => 'perl',
Modified: branches/upstream/libcgi-simple-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcgi-simple-perl/current/Changes?rev=36379&op=diff
==============================================================================
--- branches/upstream/libcgi-simple-perl/current/Changes (original)
+++ branches/upstream/libcgi-simple-perl/current/Changes Mon May 25 09:27:49 2009
@@ -163,3 +163,8 @@
- Added support for HttpOnly to CGI::Simple::Cookie. Thanks to
Scott Thomson for the patch.
+1.110 2009-05-24
+ - Added missing test to manifest / distro.
+ - Added a test to ensure the manifest is consistent.
+ - Migrated to git.
+
Modified: branches/upstream/libcgi-simple-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcgi-simple-perl/current/MANIFEST?rev=36379&op=diff
==============================================================================
--- branches/upstream/libcgi-simple-perl/current/MANIFEST (original)
+++ branches/upstream/libcgi-simple-perl/current/MANIFEST Mon May 25 09:27:49 2009
@@ -1,5 +1,6 @@
Build.PL
Changes
+inc/MyBuilder.pm
lib/CGI/Simple.pm
lib/CGI/Simple/Cookie.pm
lib/CGI/Simple/Standard.pm
@@ -18,6 +19,9 @@
t/080.util.t
t/090.14838.t
t/100.set-cookie.t
+t/110.bad-upload.t
+t/manifest.t
t/pod-coverage.t
t/pod.t
+t/test_file.txt
SIGNATURE Added here by Module::Build
Modified: branches/upstream/libcgi-simple-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcgi-simple-perl/current/META.yml?rev=36379&op=diff
==============================================================================
--- branches/upstream/libcgi-simple-perl/current/META.yml (original)
+++ branches/upstream/libcgi-simple-perl/current/META.yml Mon May 25 09:27:49 2009
@@ -1,28 +1,30 @@
---
name: CGI-Simple
-version: 1.109
+version: 1.110
author:
- 'Andy Armstrong <andy at hexten.net>'
abstract: A Simple totally OO CGI interface that is CGI.pm compliant
license: perl
resources:
+ bugtracker: http://rt.cpan.org/NoAuth/Bugs.html?Dist=CGI-Simple
license: http://dev.perl.org/licenses/
+ repository: git://github.com/AndyA/CGI--Simple.git
requires:
Test::More: 0
provides:
CGI::Simple:
file: lib/CGI/Simple.pm
- version: 1.109
+ version: 1.110
CGI::Simple::Cookie:
file: lib/CGI/Simple/Cookie.pm
- version: 1.109
+ version: 1.110
CGI::Simple::Standard:
file: lib/CGI/Simple/Standard.pm
- version: 1.109
+ version: 1.110
CGI::Simple::Util:
file: lib/CGI/Simple/Util.pm
- version: 1.109
-generated_by: Module::Build version 0.32
+ version: 1.110
+generated_by: Module::Build version 0.33
meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.2.html
- version: 1.2
+ url: http://module-build.sourceforge.net/META-spec-v1.4.html
+ version: 1.4
Modified: branches/upstream/libcgi-simple-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcgi-simple-perl/current/README?rev=36379&op=diff
==============================================================================
--- branches/upstream/libcgi-simple-perl/current/README (original)
+++ branches/upstream/libcgi-simple-perl/current/README Mon May 25 09:27:49 2009
@@ -1,4 +1,4 @@
-CGI-Simple version 1.109
+CGI-Simple version 1.110
INSTALLATION
Modified: branches/upstream/libcgi-simple-perl/current/SIGNATURE
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcgi-simple-perl/current/SIGNATURE?rev=36379&op=diff
==============================================================================
--- branches/upstream/libcgi-simple-perl/current/SIGNATURE (original)
+++ branches/upstream/libcgi-simple-perl/current/SIGNATURE Mon May 25 09:27:49 2009
@@ -14,16 +14,17 @@
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
-SHA1 706f0c6def0e7917bf4b94d52ea75af1a2cacee3 Build.PL
-SHA1 23a4c5b46b310b672fc0daf6d0d4b8017dde6445 Changes
-SHA1 32baa58c4ee8a9f9b4b386ed1dc00a882eed3c39 MANIFEST
-SHA1 34dae5c95d3a8d90ddb84415cc58e60fb1906673 META.yml
+SHA1 fc4b33de31e24bb7c44a98431665173c3289a18f Build.PL
+SHA1 82f164164433db49e227738355f0f566d2d61eb2 Changes
+SHA1 a38f26cfbf04ddcb971c5b16d975d6c0c41f3c7d MANIFEST
+SHA1 0f2b5bc32e07fce7336bfd47452b8a1ade04f074 META.yml
SHA1 a319c0eeaf2d35f87387cca92b851564bcb128d6 Makefile.PL
-SHA1 8dc5d7f3d2970126df4839e710d8a2c42ff15624 README
-SHA1 63d8335cd8d43bd78baf3c06f10bbedfc13ad5df lib/CGI/Simple.pm
-SHA1 32e7f18dd31179dd42658d3f3b4d86f9e03baf5c lib/CGI/Simple/Cookie.pm
-SHA1 eb72530e20fab3342ed17879dafac91a9e2a6d15 lib/CGI/Simple/Standard.pm
-SHA1 3859cb704f560199570b2bf382072c4d2c908608 lib/CGI/Simple/Util.pm
+SHA1 8d2ebaced748ca88c518a289e315b18b5f49b9e3 README
+SHA1 8c97bbeb63b586ee9c722313c2ad7858e32ff52c inc/MyBuilder.pm
+SHA1 6afb1f8c65c9f53ff5f266ef36a38d883f5483bd lib/CGI/Simple.pm
+SHA1 d9fbe4faf6c3d6609e8bda0746de9405bbdaee1e lib/CGI/Simple/Cookie.pm
+SHA1 23a6eea9097d6efd97097fd1c8579b47bd96280d lib/CGI/Simple/Standard.pm
+SHA1 0d103dc0671d70c40c5bae3ee145ab16537fbd69 lib/CGI/Simple/Util.pm
SHA1 029a0c2274884058f99bc339fd5bb073348c2b77 t/000.load.t
SHA1 b02cd8953e5da31678711b93f4f8ebc2939e453a t/020.cookie.t
SHA1 ca2ff8ba2f9a5f68c75e8d9527af38b042067148 t/030.function.t
@@ -34,12 +35,15 @@
SHA1 4a7dade2334d9e4f5b223cbb6c9ebd49cb5cf4a3 t/080.util.t
SHA1 432c00d3873dd6c70998f18149ba7517ffb56602 t/090.14838.t
SHA1 73ac0f1550806696461a8c356aaff53393837aa7 t/100.set-cookie.t
+SHA1 b068924cea067616ced5d01ce376a157caf701a1 t/110.bad-upload.t
+SHA1 8c049d1fe65af78a4c01ebcc7d81f37b65b15738 t/manifest.t
SHA1 d8b34ef82d206d0e64a5298a3d311ba2d87e29b9 t/pod-coverage.t
SHA1 0190346d7072d458c8a10a45c19f86db641dcc48 t/pod.t
+SHA1 334f18ad2bd0fb8b8757d9607f9d0089bb88a1ee t/test_file.txt
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.9 (Darwin)
-iEYEARECAAYFAknncEgACgkQwoknRJZQnCFZCACcCnRJgWy6XiNNL739olH8vpf5
-niwAoLGjdRwE2+OhFpQmX6miHq740wgG
-=dxRw
+iEYEARECAAYFAkoZuyAACgkQwoknRJZQnCFo+gCgnIBAYzBXHGgaY4Sef6XG+CbH
+TaUAni3VD/nkbj7I/eAUAlFEVIhk1wCn
+=gy0d
-----END PGP SIGNATURE-----
Added: branches/upstream/libcgi-simple-perl/current/inc/MyBuilder.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcgi-simple-perl/current/inc/MyBuilder.pm?rev=36379&op=file
==============================================================================
--- branches/upstream/libcgi-simple-perl/current/inc/MyBuilder.pm (added)
+++ branches/upstream/libcgi-simple-perl/current/inc/MyBuilder.pm Mon May 25 09:27:49 2009
@@ -1,0 +1,88 @@
+package MyBuilder;
+
+use base qw( Module::Build );
+
+sub create_build_script {
+ my ( $self, @args ) = @_;
+ $self->_auto_mm;
+ return $self->SUPER::create_build_script( @args );
+}
+
+sub _auto_mm {
+ my $self = shift;
+ my $mm = $self->meta_merge;
+ my @meta = qw( homepage bugtracker MailingList repository );
+ for my $meta ( @meta ) {
+ next if exists $mm->{resources}{$meta};
+ my $auto = "_auto_$meta";
+ next unless $self->can( $auto );
+ my $av = $self->$auto();
+ $mm->{resources}{$meta} = $av if defined $av;
+ }
+ $self->meta_merge( $mm );
+}
+
+sub _auto_repository {
+ my $self = shift;
+ if ( -d '.svn' ) {
+ my $info = `svn info .`;
+ return $1 if $info =~ /^URL:\s+(.+)$/m;
+ }
+ elsif ( -d '.git' ) {
+ my $info = `git remote -v`;
+ return unless $info =~ /^origin\s+(.+)$/m;
+ my $url = $1;
+ # Special case: patch up github URLs
+ $url =~ s!^git\@github\.com:!git://github.com/!;
+ return $url;
+ }
+ return;
+}
+
+sub _auto_bugtracker {
+ 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=' . shift->dist_name;
+}
+
+sub ACTION_testauthor {
+ my $self = shift;
+ $self->test_files( 'xt/author' );
+ $self->ACTION_test;
+}
+
+sub ACTION_critic {
+ exec qw( perlcritic -1 -q -profile perlcriticrc lib/ ), glob 't/*.t';
+}
+
+sub ACTION_tags {
+ exec(
+ qw(
+ ctags -f tags --recurse --totals
+ --exclude=blib
+ --exclude=.svn
+ --exclude='*~'
+ --languages=Perl
+ t/ lib/
+ )
+ );
+}
+
+sub ACTION_tidy {
+ my $self = shift;
+
+ my @extra = qw( Build.PL );
+
+ my %found_files = map { %$_ } $self->find_pm_files,
+ $self->_find_file_by_type( 'pm', 't' ),
+ $self->_find_file_by_type( 'pm', 'inc' ),
+ $self->_find_file_by_type( 't', 't' );
+
+ my @files = ( keys %found_files,
+ map { $self->localize_file_path( $_ ) } @extra );
+
+ for my $file ( @files ) {
+ system 'perltidy', '-b', $file;
+ unlink "$file.bak" if $? == 0;
+ }
+}
+
+1;
Modified: branches/upstream/libcgi-simple-perl/current/lib/CGI/Simple.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcgi-simple-perl/current/lib/CGI/Simple.pm?rev=36379&op=diff
==============================================================================
--- branches/upstream/libcgi-simple-perl/current/lib/CGI/Simple.pm (original)
+++ branches/upstream/libcgi-simple-perl/current/lib/CGI/Simple.pm Mon May 25 09:27:49 2009
@@ -13,7 +13,7 @@
$NPH $DEBUG $NO_NULL $FATAL *in
);
-$VERSION = "1.109";
+$VERSION = "1.110";
# you can hard code the global variable settings here if you want.
# warning - do not delete the unless defined $VAR part unless you
@@ -1445,7 +1445,7 @@
=head1 VERSION
-This document describes CGI::Simple version 1.109.
+This document describes CGI::Simple version 1.110.
=head1 SYNOPSIS
@@ -2190,10 +2190,7 @@
=head1 HTTP COOKIES
-Netscape browsers versions 1.1 and higher, and all versions of
-Internet Explorer, support a so-called "cookie" designed to help
-maintain state within a browser session. CGI.pm has several methods
-that support cookies.
+CGI.pm has several methods that support cookies.
A cookie is a name=value pair much like the named parameters in a CGI
query string. CGI scripts create one or more cookies and send
@@ -2340,11 +2337,9 @@
=head2 raw_cookie()
-Returns the HTTP_COOKIE variable, an HTTP extension implemented by
-Netscape browsers version 1.1 and higher, and all versions of Internet
-Explorer. Cookies have a special format, and this method call just
-returns the raw form (?cookie dough). See B<cookie()> for ways of
-setting and retrieving cooked cookies.
+Returns the HTTP_COOKIE variable. Cookies have a special format, and
+this method call just returns the raw form (?cookie dough). See
+B<cookie()> for ways of setting and retrieving cooked cookies.
Called with no parameters, B<raw_cookie()> returns the packed cookie
structure. You can separate it into individual cookies by splitting
@@ -2725,8 +2720,7 @@
You are also advised to put the script into NPH mode and to set $| to
1 to avoid buffering problems.
-Only Netscape Navigator supports server push.
-Internet Explorer browsers do not.
+Browser support for server push is variable.
Here is a simple script that demonstrates server push:
Modified: branches/upstream/libcgi-simple-perl/current/lib/CGI/Simple/Cookie.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcgi-simple-perl/current/lib/CGI/Simple/Cookie.pm?rev=36379&op=diff
==============================================================================
--- branches/upstream/libcgi-simple-perl/current/lib/CGI/Simple/Cookie.pm (original)
+++ branches/upstream/libcgi-simple-perl/current/lib/CGI/Simple/Cookie.pm Mon May 25 09:27:49 2009
@@ -12,7 +12,7 @@
use strict;
use vars '$VERSION';
-$VERSION = '1.109';
+$VERSION = '1.110';
use CGI::Simple::Util qw(rearrange unescape escape);
use overload '""' => \&as_string, 'cmp' => \&compare, 'fallback' => 1;
@@ -171,7 +171,7 @@
=head1 NAME
-CGI::Simple::Cookie - Interface to Netscape Cookies
+CGI::Simple::Cookie - Interface to browse cookies
=head1 SYNOPSIS
@@ -195,11 +195,11 @@
=head1 DESCRIPTION
-CGI::Simple::Cookie is an interface to Netscape (HTTP/1.1) cookies, an
-innovation that allows Web servers to store persistent information on
-the browser's side of the connection. Although CGI::Simple::Cookie is
-intended to be used in conjunction with CGI::Simple.pm (and is in fact
-used by it internally), you can use this module independently.
+CGI::Simple::Cookie is an interface to HTTP/1.1 cookies, a mechanism
+that allows Web servers to store persistent information on the browser's
+side of the connection. Although CGI::Simple::Cookie is intended to be
+used in conjunction with CGI::Simple.pm (and is in fact used by it
+internally), you can use this module independently.
For full information on cookies see:
@@ -230,8 +230,8 @@
This is a partial or complete domain name for which the cookie is
valid. The browser will return the cookie to any host that matches
the partial domain name. For example, if you specify a domain name
-of ".capricorn.com", then Netscape will return the cookie to
-Web servers running on any of the machines "www.capricorn.com",
+of ".capricorn.com", then the browser will return the cookie to
+web servers running on any of the machines "www.capricorn.com",
"ftp.capricorn.com", "feckless.capricorn.com", etc. Domain names
must contain at least two periods to prevent attempts to match
on top level domains like ".edu". If no domain is specified, then
Modified: branches/upstream/libcgi-simple-perl/current/lib/CGI/Simple/Standard.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcgi-simple-perl/current/lib/CGI/Simple/Standard.pm?rev=36379&op=diff
==============================================================================
--- branches/upstream/libcgi-simple-perl/current/lib/CGI/Simple/Standard.pm (original)
+++ branches/upstream/libcgi-simple-perl/current/lib/CGI/Simple/Standard.pm Mon May 25 09:27:49 2009
@@ -7,7 +7,7 @@
$NO_UNDEF_PARAMS $USE_PARAM_SEMICOLONS $HEADERS_ONCE
$NPH $DEBUG $NO_NULL $FATAL *in %EXPORT_TAGS $AUTOLOAD );
-$VERSION = "1.109";
+$VERSION = "1.110";
%EXPORT_TAGS = (
':html' => [qw(:misc)],
Modified: branches/upstream/libcgi-simple-perl/current/lib/CGI/Simple/Util.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcgi-simple-perl/current/lib/CGI/Simple/Util.pm?rev=36379&op=diff
==============================================================================
--- branches/upstream/libcgi-simple-perl/current/lib/CGI/Simple/Util.pm (original)
+++ branches/upstream/libcgi-simple-perl/current/lib/CGI/Simple/Util.pm Mon May 25 09:27:49 2009
@@ -1,7 +1,7 @@
package CGI::Simple::Util;
use strict;
use vars qw( $VERSION @EXPORT_OK @ISA $UTIL );
-$VERSION = '1.109';
+$VERSION = '1.110';
require Exporter;
@ISA = qw( Exporter );
@EXPORT_OK = qw(
Added: branches/upstream/libcgi-simple-perl/current/t/110.bad-upload.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcgi-simple-perl/current/t/110.bad-upload.t?rev=36379&op=file
==============================================================================
--- branches/upstream/libcgi-simple-perl/current/t/110.bad-upload.t (added)
+++ branches/upstream/libcgi-simple-perl/current/t/110.bad-upload.t Mon May 25 09:27:49 2009
@@ -1,0 +1,44 @@
+#!perl
+
+use strict;
+
+use Test::More;
+Test::More->builder->no_ending( 1 );
+use Config;
+use File::Spec;
+use CGI::Simple;
+
+$| = 1;
+
+plan skip_all => "fork not available on this platform"
+ unless $Config{d_fork};
+
+eval { require HTTP::Request::Common; };
+
+plan skip_all => 'HTTP::Request::Common not available' if $@;
+
+plan tests => 1;
+
+my $req = HTTP::Request::Common::POST(
+ '/dummy_location',
+ Content_Type => 'form-data',
+ Content => [
+ test_file =>
+ [ File::Spec->catfile( split /\//, "t/test_file.txt" ) ],
+ ]
+);
+
+# Useful in simulating an upload.
+$ENV{REQUEST_METHOD} = 'POST';
+$ENV{CONTENT_TYPE} = 'multipart/form-data';
+$ENV{CONTENT_LENGTH} = $req->content_length;
+
+if ( open( CHILD, "|-" ) ) {
+ print CHILD $req->content;
+ close CHILD;
+ exit 0;
+}
+
+my $q = new CGI::Simple;
+is( $q->cgi_error, undef, "CGI::Simple can handle this" );
+
Added: branches/upstream/libcgi-simple-perl/current/t/manifest.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcgi-simple-perl/current/t/manifest.t?rev=36379&op=file
==============================================================================
--- branches/upstream/libcgi-simple-perl/current/t/manifest.t (added)
+++ branches/upstream/libcgi-simple-perl/current/t/manifest.t Mon May 25 09:27:49 2009
@@ -1,0 +1,19 @@
+#!perl
+
+use strict;
+use warnings;
+
+use Test::More;
+
+eval { require ExtUtils::Manifest };
+plan skip_all => 'No ExtUtils::Manifest' if $@;
+plan skip_all => 'No MANIFEST.SKIP' unless -f 'MANIFEST.SKIP';
+plan tests => 2;
+
+my ( $missing, $extra ) = ExtUtils::Manifest::fullcheck();
+
+is_deeply $missing, [], 'missing files';
+is_deeply $extra, [], 'extra files';
+
+# vim:ts=2:sw=2:et:ft=perl
+
Added: branches/upstream/libcgi-simple-perl/current/t/test_file.txt
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcgi-simple-perl/current/t/test_file.txt?rev=36379&op=file
==============================================================================
--- branches/upstream/libcgi-simple-perl/current/t/test_file.txt (added)
+++ branches/upstream/libcgi-simple-perl/current/t/test_file.txt Mon May 25 09:27:49 2009
@@ -1,0 +1,2 @@
+Just a little test.
+
More information about the Pkg-perl-cvs-commits
mailing list