r17466 - in /branches/upstream/libhttp-server-simple-perl/current: Changes SIGNATURE lib/HTTP/Server/Simple.pm
tincho-guest at users.alioth.debian.org
tincho-guest at users.alioth.debian.org
Sat Mar 15 05:53:05 UTC 2008
Author: tincho-guest
Date: Sat Mar 15 05:53:04 2008
New Revision: 17466
URL: http://svn.debian.org/wsvn/?sc=1&rev=17466
Log:
[svn-upgrade] Integrating new upstream version, libhttp-server-simple-perl (0.30)
Modified:
branches/upstream/libhttp-server-simple-perl/current/Changes
branches/upstream/libhttp-server-simple-perl/current/SIGNATURE
branches/upstream/libhttp-server-simple-perl/current/lib/HTTP/Server/Simple.pm
Modified: branches/upstream/libhttp-server-simple-perl/current/Changes
URL: http://svn.debian.org/wsvn/branches/upstream/libhttp-server-simple-perl/current/Changes?rev=17466&op=diff
==============================================================================
--- branches/upstream/libhttp-server-simple-perl/current/Changes (original)
+++ branches/upstream/libhttp-server-simple-perl/current/Changes Sat Mar 15 05:53:04 2008
@@ -1,3 +1,8 @@
+0.30 Tue Mar 11 12:14:24 EDT 2008
+
+* Minor doc fix from Paul Miller.
+* Fixing doc style from "$this" to "$self" like any self-respecting perl code
+
0.29 Fri Feb 15 11:43:29 EST 2008
* new example section from almut on perlmonks
Modified: branches/upstream/libhttp-server-simple-perl/current/SIGNATURE
URL: http://svn.debian.org/wsvn/branches/upstream/libhttp-server-simple-perl/current/SIGNATURE?rev=17466&op=diff
==============================================================================
--- branches/upstream/libhttp-server-simple-perl/current/SIGNATURE (original)
+++ branches/upstream/libhttp-server-simple-perl/current/SIGNATURE Sat Mar 15 05:53:04 2008
@@ -14,7 +14,7 @@
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
-SHA1 1169fda38432a0b835a619128f524a44dbf913cc Changes
+SHA1 aaa5973569bfe855b7f58b3e39c2b2d27a3aa327 Changes
SHA1 0ac508c50476dcc2bf8fe3094cb341425291e1ee MANIFEST
SHA1 de5abaa8229fa5378d21eeb328081c8f14a7b488 META.yml
SHA1 3a02ba613b11b07dd1fa97e2a6b962ee3e039c98 Makefile.PL
@@ -28,7 +28,7 @@
SHA1 5d6189b2cad15cf9932a28faafd55130c8247e83 inc/Module/Install/Metadata.pm
SHA1 02af973fae2ac3531fa6b704574b2b8cb2a08148 inc/Module/Install/Win32.pm
SHA1 3a2eab96e91cca8d99938cda7791759ae9d97b3a inc/Module/Install/WriteAll.pm
-SHA1 f3dc37bcbde91e7842c39a9aed62e68f188ea5cf lib/HTTP/Server/Simple.pm
+SHA1 f5647cef6a4255c622113967654c415b67ec217b lib/HTTP/Server/Simple.pm
SHA1 40f24374f2b5845a3025e14ca4b91bd58298de03 lib/HTTP/Server/Simple/CGI.pm
SHA1 47ef836a1cdd03add505dd4c90819cafb61dc565 lib/HTTP/Server/Simple/CGI/Environment.pm
SHA1 db064af54cab345a71daec576e32e64b8fb1033d t/00smoke.t
@@ -39,7 +39,7 @@
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.8 (Darwin)
-iD8DBQFHtcFPEi9d9xCOQEYRAsxZAKDA8ITW0PRKPl/szr3nRGyy0dIIuwCbBUqW
-vZRZsBd3mlE7l0EkMlxXV1M=
-=nUTd
+iD8DBQFH1rBEEi9d9xCOQEYRAusqAJsFwS6wO1qvPzvFxVQEy3QQwZSlAgCgs4AG
+rL8Z13+0oDUZviZ7CrgxqQE=
+=MnVf
-----END PGP SIGNATURE-----
Modified: branches/upstream/libhttp-server-simple-perl/current/lib/HTTP/Server/Simple.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libhttp-server-simple-perl/current/lib/HTTP/Server/Simple.pm?rev=17466&op=diff
==============================================================================
--- branches/upstream/libhttp-server-simple-perl/current/lib/HTTP/Server/Simple.pm (original)
+++ branches/upstream/libhttp-server-simple-perl/current/lib/HTTP/Server/Simple.pm Sat Mar 15 05:53:04 2008
@@ -8,7 +8,7 @@
use URI::Escape;
use vars qw($VERSION $bad_request_doc);
-$VERSION = '0.29';
+$VERSION = '0.30';
=head1 NAME
@@ -541,7 +541,25 @@
=head2 accept_hook
If defined by a sub-class, this method is called directly after an
-accept happens.
+accept happens. An accept_hook to add SSL support might look like this:
+
+ sub accept_hook {
+ my $self = shift;
+ my $fh = $self->stdio_handle;
+
+ $self->SUPER::accept_hook(@_);
+
+ my $newfh =
+ IO::Socket::SSL->start_SSL( $fh,
+ SSL_server => 1,
+ SSL_use_cert => 1,
+ SSL_cert_file => 'myserver.crt',
+ SSL_key_file => 'myserver.key',
+ )
+ or warn "problem setting up SSL socket: " . IO::Socket::SSL::errstr();
+
+ $self->stdio_handle($newfh) if $newfh;
+ }
=head2 post_setup_hook
More information about the Pkg-perl-cvs-commits
mailing list