[Bps-public-commit] r11039 - in HTTP-Server-Simple: .

[jesse at bestpractical.com]

Author: jesse
Date: Tue Mar 11 12:18:45 2008
New Revision: 11039

Modified:
   HTTP-Server-Simple/   (props changed)
   HTTP-Server-Simple/Changes
   HTTP-Server-Simple/lib/HTTP/Server/Simple.pm

Log:
 r28205 at 120:  jesse | 2008-03-11 12:16:00 -0400
 * Doc fix from Paul Miller
 * $this -> $self
 * 0.30


Modified: HTTP-Server-Simple/Changes
==============================================================================
--- HTTP-Server-Simple/Changes	(original)
+++ HTTP-Server-Simple/Changes	Tue Mar 11 12:18:45 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: HTTP-Server-Simple/lib/HTTP/Server/Simple.pm
==============================================================================
--- HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	(original)
+++ HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	Tue Mar 11 12:18:45 2008
@@ -8,7 +8,7 @@
 use URI::Escape;
 
 use vars qw($VERSION $bad_request_doc);
-$VERSION = '0.29';
+$VERSION = '0.30';
 
 
 =head1 NAME
@@ -544,8 +544,10 @@
 accept happens.  An accept_hook to add SSL support might look like this:
 
     sub accept_hook {
-        my $this = shift;
-        my $fh   = $this->stdio_handle;
+        my $self = shift;
+        my $fh   = $self->stdio_handle;
+
+        $self->SUPER::accept_hook(@_);
 
         my $newfh =
         IO::Socket::SSL->start_SSL( $fh, 
@@ -556,7 +558,7 @@
         )
         or warn "problem setting up SSL socket: " . IO::Socket::SSL::errstr();
 
-        $this->stdio_handle($newfh) if $newfh;
+        $self->stdio_handle($newfh) if $newfh;
     }
 
 =head2 post_setup_hook