r31706 - in /branches/upstream/libcgi-simple-perl/current: ./ lib/CGI/ lib/CGI/Simple/ t/

ansgar-guest at users.alioth.debian.org ansgar-guest at users.alioth.debian.org
Sun Mar 8 14:20:25 UTC 2009


Author: ansgar-guest
Date: Sun Mar  8 14:20:21 2009
New Revision: 31706

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=31706
Log:
[svn-upgrade] Integrating new upstream version, libcgi-simple-perl (1.107)

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/Makefile.PL
    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
    branches/upstream/libcgi-simple-perl/current/t/020.cookie.t
    branches/upstream/libcgi-simple-perl/current/t/030.function.t
    branches/upstream/libcgi-simple-perl/current/t/040.request.t
    branches/upstream/libcgi-simple-perl/current/t/050.simple.t
    branches/upstream/libcgi-simple-perl/current/t/060.slow_post.t
    branches/upstream/libcgi-simple-perl/current/t/070.standard.t
    branches/upstream/libcgi-simple-perl/current/t/080.util.t
    branches/upstream/libcgi-simple-perl/current/t/090.14838.t
    branches/upstream/libcgi-simple-perl/current/t/100.set-cookie.t

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=31706&op=diff
==============================================================================
--- branches/upstream/libcgi-simple-perl/current/Build.PL (original)
+++ branches/upstream/libcgi-simple-perl/current/Build.PL Sun Mar  8 14:20:21 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: branches/upstream/libcgi-simple-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcgi-simple-perl/current/Changes?rev=31706&op=diff
==============================================================================
--- branches/upstream/libcgi-simple-perl/current/Changes (original)
+++ branches/upstream/libcgi-simple-perl/current/Changes Sun Mar  8 14:20:21 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: branches/upstream/libcgi-simple-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcgi-simple-perl/current/MANIFEST?rev=31706&op=diff
==============================================================================
--- branches/upstream/libcgi-simple-perl/current/MANIFEST (original)
+++ branches/upstream/libcgi-simple-perl/current/MANIFEST Sun Mar  8 14:20:21 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: 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=31706&op=diff
==============================================================================
--- branches/upstream/libcgi-simple-perl/current/META.yml (original)
+++ branches/upstream/libcgi-simple-perl/current/META.yml Sun Mar  8 14:20:21 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: branches/upstream/libcgi-simple-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcgi-simple-perl/current/Makefile.PL?rev=31706&op=diff
==============================================================================
--- branches/upstream/libcgi-simple-perl/current/Makefile.PL (original)
+++ branches/upstream/libcgi-simple-perl/current/Makefile.PL Sun Mar  8 14:20:21 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: branches/upstream/libcgi-simple-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcgi-simple-perl/current/README?rev=31706&op=diff
==============================================================================
--- branches/upstream/libcgi-simple-perl/current/README (original)
+++ branches/upstream/libcgi-simple-perl/current/README Sun Mar  8 14:20:21 2009
@@ -1,4 +1,4 @@
-CGI-Simple version 1.106
+CGI-Simple version 1.107
 
 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=31706&op=diff
==============================================================================
--- branches/upstream/libcgi-simple-perl/current/SIGNATURE (original)
+++ branches/upstream/libcgi-simple-perl/current/SIGNATURE Sun Mar  8 14:20:21 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: 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=31706&op=diff
==============================================================================
--- branches/upstream/libcgi-simple-perl/current/lib/CGI/Simple.pm (original)
+++ branches/upstream/libcgi-simple-perl/current/lib/CGI/Simple.pm Sun Mar  8 14:20:21 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: 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=31706&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 Sun Mar  8 14:20:21 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: 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=31706&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 Sun Mar  8 14:20:21 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: 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=31706&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 Sun Mar  8 14:20:21 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: branches/upstream/libcgi-simple-perl/current/t/020.cookie.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcgi-simple-perl/current/t/020.cookie.t?rev=31706&op=diff
==============================================================================
--- branches/upstream/libcgi-simple-perl/current/t/020.cookie.t (original)
+++ branches/upstream/libcgi-simple-perl/current/t/020.cookie.t Sun Mar  8 14:20:21 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: branches/upstream/libcgi-simple-perl/current/t/030.function.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcgi-simple-perl/current/t/030.function.t?rev=31706&op=diff
==============================================================================
--- branches/upstream/libcgi-simple-perl/current/t/030.function.t (original)
+++ branches/upstream/libcgi-simple-perl/current/t/030.function.t Sun Mar  8 14:20:21 2009
@@ -1,6 +1,5 @@
 use Test::More tests => 27;
 use strict;
-use warnings;
 use Config;
 
 use CGI::Simple::Standard qw(:all -default);

Modified: branches/upstream/libcgi-simple-perl/current/t/040.request.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcgi-simple-perl/current/t/040.request.t?rev=31706&op=diff
==============================================================================
--- branches/upstream/libcgi-simple-perl/current/t/040.request.t (original)
+++ branches/upstream/libcgi-simple-perl/current/t/040.request.t Sun Mar  8 14:20:21 2009
@@ -4,7 +4,6 @@
 
 use Test::More tests => 40;
 use strict;
-use warnings;
 use Config;
 
 use CGI::Simple ( -default );

Modified: branches/upstream/libcgi-simple-perl/current/t/050.simple.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcgi-simple-perl/current/t/050.simple.t?rev=31706&op=diff
==============================================================================
--- branches/upstream/libcgi-simple-perl/current/t/050.simple.t (original)
+++ branches/upstream/libcgi-simple-perl/current/t/050.simple.t Sun Mar  8 14:20:21 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(
   "&lt;&gt;&amp;&quot;&#10;&#13;&lt;&gt;&amp;&quot;&#10;&#13;" );
 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: branches/upstream/libcgi-simple-perl/current/t/060.slow_post.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcgi-simple-perl/current/t/060.slow_post.t?rev=31706&op=diff
==============================================================================
--- branches/upstream/libcgi-simple-perl/current/t/060.slow_post.t (original)
+++ branches/upstream/libcgi-simple-perl/current/t/060.slow_post.t Sun Mar  8 14:20:21 2009
@@ -1,6 +1,5 @@
 use Test::More tests => 2;
 use strict;
-use warnings;
 use Config;
 
 use CGI::Simple;

Modified: branches/upstream/libcgi-simple-perl/current/t/070.standard.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcgi-simple-perl/current/t/070.standard.t?rev=31706&op=diff
==============================================================================
--- branches/upstream/libcgi-simple-perl/current/t/070.standard.t (original)
+++ branches/upstream/libcgi-simple-perl/current/t/070.standard.t Sun Mar  8 14:20:21 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: branches/upstream/libcgi-simple-perl/current/t/080.util.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcgi-simple-perl/current/t/080.util.t?rev=31706&op=diff
==============================================================================
--- branches/upstream/libcgi-simple-perl/current/t/080.util.t (original)
+++ branches/upstream/libcgi-simple-perl/current/t/080.util.t Sun Mar  8 14:20:21 2009
@@ -1,6 +1,5 @@
 use Test::More tests => 58;
 use strict;
-use warnings;
 
 use CGI::Simple::Util qw(escape unescape);
 

Modified: branches/upstream/libcgi-simple-perl/current/t/090.14838.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcgi-simple-perl/current/t/090.14838.t?rev=31706&op=diff
==============================================================================
--- branches/upstream/libcgi-simple-perl/current/t/090.14838.t (original)
+++ branches/upstream/libcgi-simple-perl/current/t/090.14838.t Sun Mar  8 14:20:21 2009
@@ -1,5 +1,4 @@
 use strict;
-use warnings;
 use Test::More;
 Test::More->builder->no_ending( 1 );
 use Config;

Modified: branches/upstream/libcgi-simple-perl/current/t/100.set-cookie.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcgi-simple-perl/current/t/100.set-cookie.t?rev=31706&op=diff
==============================================================================
--- branches/upstream/libcgi-simple-perl/current/t/100.set-cookie.t (original)
+++ branches/upstream/libcgi-simple-perl/current/t/100.set-cookie.t Sun Mar  8 14:20:21 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