r31708 - in /trunk/libcgi-simple-perl: ./ debian/ lib/CGI/ lib/CGI/Simple/ t/
ansgar-guest at users.alioth.debian.org
ansgar-guest at users.alioth.debian.org
Sun Mar 8 14:39:47 UTC 2009
Author: ansgar-guest
Date: Sun Mar 8 14:39:44 2009
New Revision: 31708
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=31708
Log:
* New upstream release.
* Add myself to Uploaders.
Modified:
trunk/libcgi-simple-perl/Build.PL
trunk/libcgi-simple-perl/Changes
trunk/libcgi-simple-perl/MANIFEST
trunk/libcgi-simple-perl/META.yml
trunk/libcgi-simple-perl/Makefile.PL
trunk/libcgi-simple-perl/README
trunk/libcgi-simple-perl/SIGNATURE
trunk/libcgi-simple-perl/debian/changelog
trunk/libcgi-simple-perl/debian/control
trunk/libcgi-simple-perl/lib/CGI/Simple.pm
trunk/libcgi-simple-perl/lib/CGI/Simple/Cookie.pm
trunk/libcgi-simple-perl/lib/CGI/Simple/Standard.pm
trunk/libcgi-simple-perl/lib/CGI/Simple/Util.pm
trunk/libcgi-simple-perl/t/020.cookie.t
trunk/libcgi-simple-perl/t/030.function.t
trunk/libcgi-simple-perl/t/040.request.t
trunk/libcgi-simple-perl/t/050.simple.t
trunk/libcgi-simple-perl/t/060.slow_post.t
trunk/libcgi-simple-perl/t/070.standard.t
trunk/libcgi-simple-perl/t/080.util.t
trunk/libcgi-simple-perl/t/090.14838.t
trunk/libcgi-simple-perl/t/100.set-cookie.t
Modified: trunk/libcgi-simple-perl/Build.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libcgi-simple-perl/Build.PL?rev=31708&op=diff
==============================================================================
--- trunk/libcgi-simple-perl/Build.PL (original)
+++ trunk/libcgi-simple-perl/Build.PL Sun Mar 8 14:39:44 2009
@@ -1,5 +1,4 @@
use strict;
-use warnings;
use Module::Build;
my $builder = Module::Build->new(
@@ -8,11 +7,8 @@
license => 'perl',
dist_author => 'Andy Armstrong <andy at hexten.net>',
dist_version_from => 'lib/CGI/Simple.pm',
- requires => {
- 'Test::More' => 0,
- 'version' => 0,
- },
- add_to_cleanup => ['CGI-Simple-*'],
+ requires => { 'Test::More' => 0, },
+ add_to_cleanup => ['CGI-Simple-*'],
);
$builder->create_build_script();
Modified: trunk/libcgi-simple-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libcgi-simple-perl/Changes?rev=31708&op=diff
==============================================================================
--- trunk/libcgi-simple-perl/Changes (original)
+++ trunk/libcgi-simple-perl/Changes Sun Mar 8 14:39:44 2009
@@ -137,3 +137,21 @@
- Applied BEROV's patch for UTF-8 form data handling. Refs #12481.
Thanks to BEROV.
+1.107 2009-03-07
+ - CGI::Simple::Cookie, fixed bug when cookie had both leading and
+ trailing white space (RT#34314, Ron Savage and Mark Stosberg)
+ - Accept a comma as well as semi-colon as a cookie separator. This
+ is consistent with CGI.pm as well as RFC 2965, which states: "A
+ server SHOULD also accept comma (,) as the separator between cookie-
+ values for future compatibility." (Mark Stosberg)
+ - Support cookies which have an equals sign in the value. Ported
+ from CGI.pm (Mark Stosberg)
+ - Support cookies in which one of multiple values is empty. Ported
+ from CGI.pm (Mark Stosberg)
+ - Fixed bug when calling unescapeHTML on HTML that wasn't
+ properly escaped in the first place. Thanks to M-Uchino and
+ Mark Stosberg.
+ - Removed bogus dependency on version.pm.
+ - Add heuristic to upload to handle the case where no boundary is
+ specified in CONTENT_TYPE. See #14838.
+
Modified: trunk/libcgi-simple-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libcgi-simple-perl/MANIFEST?rev=31708&op=diff
==============================================================================
--- trunk/libcgi-simple-perl/MANIFEST (original)
+++ trunk/libcgi-simple-perl/MANIFEST Sun Mar 8 14:39:44 2009
@@ -20,4 +20,4 @@
t/100.set-cookie.t
t/pod-coverage.t
t/pod.t
-SIGNATURE Public-key signature (added by MakeMaker)
+SIGNATURE Added here by Module::Build
Modified: trunk/libcgi-simple-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libcgi-simple-perl/META.yml?rev=31708&op=diff
==============================================================================
--- trunk/libcgi-simple-perl/META.yml (original)
+++ trunk/libcgi-simple-perl/META.yml Sun Mar 8 14:39:44 2009
@@ -1,15 +1,28 @@
---- #YAML:1.0
-name: CGI-Simple
-version: 1.106
-abstract: A Simple totally OO CGI interface that is CGI.pm compliant
-license: perl
-author:
- - Andy Armstrong <andy at hexten.net>
-generated_by: ExtUtils::MakeMaker version 6.44
-distribution_type: module
-requires:
- Test::More: 0
- version: 0
+---
+name: CGI-Simple
+version: 1.107
+author:
+ - 'Andy Armstrong <andy at hexten.net>'
+abstract: A Simple totally OO CGI interface that is CGI.pm compliant
+license: perl
+resources:
+ license: ~
+requires:
+ Test::More: 0
+provides:
+ CGI::Simple:
+ file: lib/CGI/Simple.pm
+ version: 1.107
+ CGI::Simple::Cookie:
+ file: lib/CGI/Simple/Cookie.pm
+ version: 1.107
+ CGI::Simple::Standard:
+ file: lib/CGI/Simple/Standard.pm
+ version: 1.107
+ CGI::Simple::Util:
+ file: lib/CGI/Simple/Util.pm
+ version: 1.107
+generated_by: Module::Build version 0.31012
meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.3.html
- version: 1.3
+ url: http://module-build.sourceforge.net/META-spec-v1.2.html
+ version: 1.2
Modified: trunk/libcgi-simple-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libcgi-simple-perl/Makefile.PL?rev=31708&op=diff
==============================================================================
--- trunk/libcgi-simple-perl/Makefile.PL (original)
+++ trunk/libcgi-simple-perl/Makefile.PL Sun Mar 8 14:39:44 2009
@@ -1,5 +1,4 @@
use strict;
-use warnings;
use ExtUtils::MakeMaker;
WriteMakefile(
@@ -10,10 +9,7 @@
ABSTRACT_FROM => 'lib/CGI/Simple.pm',
LICENSE => 'perl',
PL_FILES => {},
- PREREQ_PM => {
- 'Test::More' => 0,
- 'version' => 0,
- },
- dist => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
- clean => { FILES => 'CGI-Simple-*' },
+ PREREQ_PM => { 'Test::More' => 0, },
+ dist => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
+ clean => { FILES => 'CGI-Simple-*' },
);
Modified: trunk/libcgi-simple-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libcgi-simple-perl/README?rev=31708&op=diff
==============================================================================
--- trunk/libcgi-simple-perl/README (original)
+++ trunk/libcgi-simple-perl/README Sun Mar 8 14:39:44 2009
@@ -1,4 +1,4 @@
-CGI-Simple version 1.106
+CGI-Simple version 1.107
INSTALLATION
Modified: trunk/libcgi-simple-perl/SIGNATURE
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libcgi-simple-perl/SIGNATURE?rev=31708&op=diff
==============================================================================
--- trunk/libcgi-simple-perl/SIGNATURE (original)
+++ trunk/libcgi-simple-perl/SIGNATURE Sun Mar 8 14:39:44 2009
@@ -14,32 +14,32 @@
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
-SHA1 331350959dd6203f41a51317c2375e00cf4c6f2b Build.PL
-SHA1 6c2b81815cafd96a0a51544d380477b2955c23c5 Changes
-SHA1 272aac2d53a00db88389fe37811899c77d62dc02 MANIFEST
-SHA1 924da501ae26c9572053834e2e2240ed8b4604ab META.yml
-SHA1 96bb8551f3ae3cd7e1ff73f537caae3016585b93 Makefile.PL
-SHA1 243eb963af14252ca05d45f7dc9d156b9609aab6 README
-SHA1 be5d0607b1d300ecef1cd9bd7dda48c4001a9289 lib/CGI/Simple.pm
-SHA1 bc5b45a14069e2783b6f6131de4908f5123d95a6 lib/CGI/Simple/Cookie.pm
-SHA1 0fc290f1de6e96d6f53c4f1f79bb15711d6aaf25 lib/CGI/Simple/Standard.pm
-SHA1 91b88546d5e5d0cd62f3f212c201edfcfc61c6c6 lib/CGI/Simple/Util.pm
+SHA1 706f0c6def0e7917bf4b94d52ea75af1a2cacee3 Build.PL
+SHA1 f92807cc0df949acd500cdf5af961778fb096108 Changes
+SHA1 32baa58c4ee8a9f9b4b386ed1dc00a882eed3c39 MANIFEST
+SHA1 1193a1aac4332f5d234ae2dea97dca230254e71b META.yml
+SHA1 9b2429330fc42f4d34b6b75fc27b659aacd185a4 Makefile.PL
+SHA1 8581b7562100d5096fe8c8af56a686baaec7bfd8 README
+SHA1 183f8128c5245773c2b40be339dabd8ae581c628 lib/CGI/Simple.pm
+SHA1 2e47c0e97c6b7a9d257bfc8113abeafd983df717 lib/CGI/Simple/Cookie.pm
+SHA1 8a4d679ca517313fd7ffce5ed41b85925c20c5b9 lib/CGI/Simple/Standard.pm
+SHA1 f907cc442c4ba963c72bd7f2a46b4b9fba9bccfb lib/CGI/Simple/Util.pm
SHA1 029a0c2274884058f99bc339fd5bb073348c2b77 t/000.load.t
-SHA1 3a26c077860d5cc019a891e51b8004f82cc034d5 t/020.cookie.t
-SHA1 038508e2b4d6fd30260b36ddf8a9cc6435801b44 t/030.function.t
-SHA1 62add8c5e4d994a7f8876928b8cc339da3179d0c t/040.request.t
-SHA1 fdbc8e8f96736a80c62e6ba60e083db6a1f4732e t/050.simple.t
-SHA1 856c99c563c21bd685754bfda359f1c124334a4a t/060.slow_post.t
-SHA1 02172c3d04eb4eecd16f7f169e3fae615612a5e1 t/070.standard.t
-SHA1 42778ebc532ed440753a1f946c0f2d682f8996a1 t/080.util.t
-SHA1 ad0916e7aae797b8a3fe753a0a180146fafd605c t/090.14838.t
-SHA1 0447681db5be30e699f353ca41a557e9a564a211 t/100.set-cookie.t
+SHA1 2b2ff00999214136e5ac075c79bef7146fd4274b t/020.cookie.t
+SHA1 ca2ff8ba2f9a5f68c75e8d9527af38b042067148 t/030.function.t
+SHA1 e8fbebb9354bcd7755bfecaa564f44467265242c t/040.request.t
+SHA1 1b433740f6b5f7d282e2ecf659f2edaa70d003ea t/050.simple.t
+SHA1 4d5dd87be1d9d13a0eadd45a448d3373a6092415 t/060.slow_post.t
+SHA1 ff403cdeb2019e9bad7752bc8db28fcdb8da37fd t/070.standard.t
+SHA1 4a7dade2334d9e4f5b223cbb6c9ebd49cb5cf4a3 t/080.util.t
+SHA1 432c00d3873dd6c70998f18149ba7517ffb56602 t/090.14838.t
+SHA1 73ac0f1550806696461a8c356aaff53393837aa7 t/100.set-cookie.t
SHA1 d8b34ef82d206d0e64a5298a3d311ba2d87e29b9 t/pod-coverage.t
SHA1 0190346d7072d458c8a10a45c19f86db641dcc48 t/pod.t
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.9 (Darwin)
-iEYEARECAAYFAkjNEX8ACgkQwoknRJZQnCFMFQCeJ2iebBp2vHBPDrzjgwMzZpT1
-D8IAn36XYdPvP2oDMMw20k4FEKAIybxF
-=TIf+
+iEYEARECAAYFAkmy5gMACgkQwoknRJZQnCE5+QCgjhM7K++Ke9BVnN/8KMOHg4jn
+3fsAnRCAkb8kDPdlX9OBBeHmKfH6ZEER
+=OiWI
-----END PGP SIGNATURE-----
Modified: trunk/libcgi-simple-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libcgi-simple-perl/debian/changelog?rev=31708&op=diff
==============================================================================
--- trunk/libcgi-simple-perl/debian/changelog (original)
+++ trunk/libcgi-simple-perl/debian/changelog Sun Mar 8 14:39:44 2009
@@ -1,9 +1,14 @@
-libcgi-simple-perl (1.106-2) UNRELEASED; urgency=low
+libcgi-simple-perl (1.107-1) UNRELEASED; urgency=low
+ [ gregor herrmann ]
* debian/control: Changed: Switched Vcs-Browser field to ViewSVN
(source stanza).
- -- gregor herrmann <gregoa at debian.org> Sun, 16 Nov 2008 20:40:22 +0100
+ [ Ansgar Burchardt ]
+ * New upstream release.
+ * Add myself to Uploaders.
+
+ -- Ansgar Burchardt <ansgar at 43-1.org> Sun, 08 Mar 2009 15:33:34 +0100
libcgi-simple-perl (1.106-1) unstable; urgency=low
Modified: trunk/libcgi-simple-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libcgi-simple-perl/debian/control?rev=31708&op=diff
==============================================================================
--- trunk/libcgi-simple-perl/debian/control (original)
+++ trunk/libcgi-simple-perl/debian/control Sun Mar 8 14:39:44 2009
@@ -6,7 +6,8 @@
libtest-pod-coverage-perl
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
Uploaders: Jose Luis Rivas <ghostbar38 at gmail.com>,
- gregor herrmann <gregoa at debian.org>
+ gregor herrmann <gregoa at debian.org>,
+ Ansgar Burchardt <ansgar at 43-1.org>
Standards-Version: 3.8.0
Homepage: http://search.cpan.org/dist/CGI-Simple/
Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libcgi-simple-perl/
Modified: trunk/libcgi-simple-perl/lib/CGI/Simple.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libcgi-simple-perl/lib/CGI/Simple.pm?rev=31708&op=diff
==============================================================================
--- trunk/libcgi-simple-perl/lib/CGI/Simple.pm (original)
+++ trunk/libcgi-simple-perl/lib/CGI/Simple.pm Sun Mar 8 14:39:44 2009
@@ -5,7 +5,6 @@
# this module is both strict (and warnings) compliant, but they are only used
# in testing as they add an unnecessary compile time overhead in production.
use strict;
-use warnings;
use Carp;
use vars qw(
@@ -14,7 +13,7 @@
$NPH $DEBUG $NO_NULL $FATAL *in
);
-$VERSION = "1.106";
+$VERSION = "1.107";
# you can hard code the global variable settings here if you want.
# warning - do not delete the unless defined $VAR part unless you
@@ -451,26 +450,26 @@
return @keywords;
}
-sub _parse_multipart {
- my $self = shift;
-
- # TODO: See 14838. We /could/ have a heuristic here for the case
- # where no boundary is supplied.
-
- my ( $boundary )
- = $ENV{'CONTENT_TYPE'} =~ /boundary=\"?([^\";,]+)\"?/;
- unless ( $boundary ) {
- $self->cgi_error(
- '400 No boundary supplied for multipart/form-data' );
- return 0;
- }
-
-# BUG: IE 3.01 on the Macintosh uses just the boundary, forgetting the --
+sub _massage_boundary {
+ my ( $self, $boundary ) = @_;
+
+ # BUG: IE 3.01 on the Macintosh uses just the boundary,
+ # forgetting the --
$boundary = '--' . $boundary
unless exists $ENV{'HTTP_USER_AGENT'}
&& $ENV{'HTTP_USER_AGENT'} =~ m/MSIE\s+3\.0[12];\s*Mac/i;
- $boundary = quotemeta $boundary;
+ return quotemeta $boundary;
+}
+
+sub _parse_multipart {
+ my $self = shift;
+
+ my ( $boundary )
+ = $ENV{'CONTENT_TYPE'} =~ /boundary=\"?([^\";,]+)\"?/;
+
+ $boundary = $self->_massage_boundary( $boundary ) if $boundary;
+
my $got_data = 0;
my $data = '';
my $length = $ENV{'CONTENT_LENGTH'} || 0;
@@ -482,6 +481,20 @@
last READ unless _internal_read( $self, my $buffer );
$data .= $buffer;
$got_data += length $buffer;
+
+ unless ( $boundary ) {
+ # If we're going to guess the boundary we need a complete line.
+ next READ unless $data =~ /^(.*)$CRLF/o;
+ $boundary = $1;
+
+ # Still no boundary? Give up...
+ unless ( $boundary ) {
+ $self->cgi_error(
+ '400 No boundary supplied for multipart/form-data' );
+ return 0;
+ }
+ $boundary = $self->_massage_boundary($boundary);
+ }
BOUNDARY:
@@ -497,6 +510,7 @@
my ( $param ) = $unfold =~ m/form-data;\s+name="?([^\";]*)"?/;
my ( $filename )
= $unfold =~ m/name="?\Q$param\E"?;\s+filename="?([^\"]*)"?/;
+
if ( defined $filename ) {
my ( $mime ) = $unfold =~ m/Content-Type:\s+([-\w\/]+)/io;
$data =~ s/^\Q$header\E//;
@@ -1439,7 +1453,7 @@
=head1 VERSION
-This document describes CGI::Simple version 1.106.
+This document describes CGI::Simple version 1.107.
=head1 SYNOPSIS
Modified: trunk/libcgi-simple-perl/lib/CGI/Simple/Cookie.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libcgi-simple-perl/lib/CGI/Simple/Cookie.pm?rev=31708&op=diff
==============================================================================
--- trunk/libcgi-simple-perl/lib/CGI/Simple/Cookie.pm (original)
+++ trunk/libcgi-simple-perl/lib/CGI/Simple/Cookie.pm Sun Mar 8 14:39:44 2009
@@ -12,7 +12,7 @@
use strict;
use vars '$VERSION';
-$VERSION = '1.106';
+$VERSION = '1.107';
use CGI::Simple::Util qw(rearrange unescape escape);
use overload '""' => \&as_string, 'cmp' => \&compare, 'fallback' => 1;
@@ -29,12 +29,18 @@
my ( $self, $raw_cookie ) = @_;
return () unless $raw_cookie;
my %results;
- my @pairs = split "; ?", $raw_cookie;
+ my @pairs = split "[;,] ?", $raw_cookie;
for my $pair ( @pairs ) {
- $pair =~ s/^\s+|\s+$//; # trim leading trailing whitespace
- my ( $key, $value ) = split "=", $pair;
- next unless defined $value;
- my @values = map { unescape( $_ ) } split /[&;]/, $value;
+ # trim leading trailing whitespace
+ $pair =~ s/^\s+//;
+ $pair =~ s/\s+$//;
+ my ( $key, $value ) = split( "=", $pair, 2 );
+ next if !defined( $value );
+ my @values = ();
+ if ( $value ne '' ) {
+ @values = map unescape( $_ ), split( /[&;]/, $value . '&dmy' );
+ pop @values;
+ }
$key = unescape( $key );
# A bug in Netscape can cause several cookies with same name to
Modified: trunk/libcgi-simple-perl/lib/CGI/Simple/Standard.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libcgi-simple-perl/lib/CGI/Simple/Standard.pm?rev=31708&op=diff
==============================================================================
--- trunk/libcgi-simple-perl/lib/CGI/Simple/Standard.pm (original)
+++ trunk/libcgi-simple-perl/lib/CGI/Simple/Standard.pm Sun Mar 8 14:39:44 2009
@@ -7,7 +7,7 @@
$NO_UNDEF_PARAMS $USE_PARAM_SEMICOLONS $HEADERS_ONCE
$NPH $DEBUG $NO_NULL $FATAL *in %EXPORT_TAGS $AUTOLOAD );
-$VERSION = "1.106";
+$VERSION = "1.107";
%EXPORT_TAGS = (
':html' => [qw(:misc)],
Modified: trunk/libcgi-simple-perl/lib/CGI/Simple/Util.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libcgi-simple-perl/lib/CGI/Simple/Util.pm?rev=31708&op=diff
==============================================================================
--- trunk/libcgi-simple-perl/lib/CGI/Simple/Util.pm (original)
+++ trunk/libcgi-simple-perl/lib/CGI/Simple/Util.pm Sun Mar 8 14:39:44 2009
@@ -1,7 +1,7 @@
package CGI::Simple::Util;
use strict;
use vars qw( $VERSION @EXPORT_OK @ISA $UTIL );
-$VERSION = '1.106';
+$VERSION = '1.107';
require Exporter;
@ISA = qw( Exporter );
@EXPORT_OK = qw(
@@ -152,7 +152,7 @@
/^#(\d+)$/ && $ebcdic ? chr($UTIL->{'a2e'}->[$1]) :
/^#x([0-9a-f]+)$/i && $latin ? chr(hex($1)) :
/^#x([0-9a-f]+)$/i && $ebcdic ? chr($UTIL->{'a2e'}->[hex $1]) :
- $_
+ "\&$_;"
}gex;
return $unescape;
}
Modified: trunk/libcgi-simple-perl/t/020.cookie.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libcgi-simple-perl/t/020.cookie.t?rev=31708&op=diff
==============================================================================
--- trunk/libcgi-simple-perl/t/020.cookie.t (original)
+++ trunk/libcgi-simple-perl/t/020.cookie.t Sun Mar 8 14:39:44 2009
@@ -4,7 +4,6 @@
use Test::More tests => 86;
use strict;
-use warnings;
use CGI::Simple::Util qw(escape unescape);
use POSIX qw(strftime);
@@ -17,7 +16,7 @@
}
my @test_cookie = (
- 'foo=123; bar=qwerty; baz=wibble; qux=a1',
+ 'foo=123, bar=qwerty; baz=wib=ble ; qux=1&2&',
'foo=123; bar=qwerty; baz=wibble;',
'foo=vixen; bar=cow; baz=bitch; qux=politician',
'foo=a%20phrase; bar=yes%2C%20a%20phrase; baz=%5Ewibble; qux=%27',
@@ -42,10 +41,15 @@
my %result = CGI::Simple::Cookie->parse( $test_cookie[0] );
- is( $result{foo}->value, '123', "cookie foo is correct" );
- is( $result{bar}->value, 'qwerty', "cookie bar is correct" );
- is( $result{baz}->value, 'wibble', "cookie baz is correct" );
- is( $result{qux}->value, 'a1', "cookie qux is correct" );
+ is( $result{foo}->value, '123', "cookie foo is correct" );
+ is( $result{bar}->value, 'qwerty', "cookie bar is correct" );
+ is( $result{baz}->value, 'wib=ble', "cookie baz is correct" );
+ my @values = $result{qux}->value;
+ is_deeply(
+ \@values,
+ [ 1, 2, '' ],
+ "multiple values are supported including empty values."
+ );
}
#-----------------------------------------------------------------------------
Modified: trunk/libcgi-simple-perl/t/030.function.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libcgi-simple-perl/t/030.function.t?rev=31708&op=diff
==============================================================================
--- trunk/libcgi-simple-perl/t/030.function.t (original)
+++ trunk/libcgi-simple-perl/t/030.function.t Sun Mar 8 14:39:44 2009
@@ -1,6 +1,5 @@
use Test::More tests => 27;
use strict;
-use warnings;
use Config;
use CGI::Simple::Standard qw(:all -default);
Modified: trunk/libcgi-simple-perl/t/040.request.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libcgi-simple-perl/t/040.request.t?rev=31708&op=diff
==============================================================================
--- trunk/libcgi-simple-perl/t/040.request.t (original)
+++ trunk/libcgi-simple-perl/t/040.request.t Sun Mar 8 14:39:44 2009
@@ -4,7 +4,6 @@
use Test::More tests => 40;
use strict;
-use warnings;
use Config;
use CGI::Simple ( -default );
Modified: trunk/libcgi-simple-perl/t/050.simple.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libcgi-simple-perl/t/050.simple.t?rev=31708&op=diff
==============================================================================
--- trunk/libcgi-simple-perl/t/050.simple.t (original)
+++ trunk/libcgi-simple-perl/t/050.simple.t Sun Mar 8 14:39:44 2009
@@ -1,7 +1,6 @@
-use Test::More tests => 331;
+use Test::More tests => 332;
use Carp;
use strict;
-use warnings;
use vars qw(%field %in);
use CGI::Simple;
@@ -756,6 +755,13 @@
$sv = $q->unescapeHTML(
"<>&" <>&" " );
is( $sv, "<>&\"\012\015<>&\"\012\015", 'unescapeHTML(), 2' );
+$sv = $q->unescapeHTML(
+ 'Jack & Jill went up the hill; to get a pail of water' );
+is(
+ $sv,
+ 'Jack & Jill went up the hill; to get a pail of water',
+ 'unescapeHTML(), 3 '
+);
# put()
is( $q->put( '' ), 1, 'put(), 1' );
Modified: trunk/libcgi-simple-perl/t/060.slow_post.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libcgi-simple-perl/t/060.slow_post.t?rev=31708&op=diff
==============================================================================
--- trunk/libcgi-simple-perl/t/060.slow_post.t (original)
+++ trunk/libcgi-simple-perl/t/060.slow_post.t Sun Mar 8 14:39:44 2009
@@ -1,6 +1,5 @@
use Test::More tests => 2;
use strict;
-use warnings;
use Config;
use CGI::Simple;
Modified: trunk/libcgi-simple-perl/t/070.standard.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libcgi-simple-perl/t/070.standard.t?rev=31708&op=diff
==============================================================================
--- trunk/libcgi-simple-perl/t/070.standard.t (original)
+++ trunk/libcgi-simple-perl/t/070.standard.t Sun Mar 8 14:39:44 2009
@@ -1,7 +1,6 @@
use Test::More tests => 301;
use Carp;
use strict;
-use warnings;
use vars qw(%field %in);
use CGI::Simple::Standard qw( :all );
Modified: trunk/libcgi-simple-perl/t/080.util.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libcgi-simple-perl/t/080.util.t?rev=31708&op=diff
==============================================================================
--- trunk/libcgi-simple-perl/t/080.util.t (original)
+++ trunk/libcgi-simple-perl/t/080.util.t Sun Mar 8 14:39:44 2009
@@ -1,6 +1,5 @@
use Test::More tests => 58;
use strict;
-use warnings;
use CGI::Simple::Util qw(escape unescape);
Modified: trunk/libcgi-simple-perl/t/090.14838.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libcgi-simple-perl/t/090.14838.t?rev=31708&op=diff
==============================================================================
--- trunk/libcgi-simple-perl/t/090.14838.t (original)
+++ trunk/libcgi-simple-perl/t/090.14838.t Sun Mar 8 14:39:44 2009
@@ -1,5 +1,4 @@
use strict;
-use warnings;
use Test::More;
Test::More->builder->no_ending( 1 );
use Config;
Modified: trunk/libcgi-simple-perl/t/100.set-cookie.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libcgi-simple-perl/t/100.set-cookie.t?rev=31708&op=diff
==============================================================================
--- trunk/libcgi-simple-perl/t/100.set-cookie.t (original)
+++ trunk/libcgi-simple-perl/t/100.set-cookie.t Sun Mar 8 14:39:44 2009
@@ -1,5 +1,4 @@
use strict;
-use warnings;
use Test::More tests => 1;
use CGI::Simple;
More information about the Pkg-perl-cvs-commits
mailing list