From 0bf81ada5160669ea620d0c8030829f0bbdfd311 Mon Sep 17 00:00:00 2001
From: Juerd Waalboer <juerd@cpan.org>
Date: Sat, 31 Mar 2007 02:33:29 +0200
Subject: [PATCH] cleanup (minor things like punctuation, use spaces for docu
 indenting)

---
 Changes       |  4 +--
 PLP.pm        |  2 +-
 PLP/HowTo.pod | 87 ++++++++++++++++++++++++++-------------------------
 3 files changed, 47 insertions(+), 46 deletions(-)

diff --git a/Changes b/Changes
index 486947f..d6edbf1 100644
--- a/Changes
+++ b/Changes
@@ -5,10 +5,10 @@
 - Small documentation fixes
 - Setting a header when headers are already sent now tells you where output
   started
-- Speedup in source()
+- Speeded up source()
 
 3.16 - May 21, 2002:
-- Clean up a little
+- Cleaned up a little
 - Changed compile-time <(...)> includes to use paths relative to the file they
   are included by. Include() of course still uses paths relative to the current
   working directory
diff --git a/PLP.pm b/PLP.pm
index f4afee8..df6ea34 100644
--- a/PLP.pm
+++ b/PLP.pm
@@ -68,7 +68,7 @@ sub cgi_init {
 
     delete @ENV{
 	qw(PATH_TRANSLATED SCRIPT_NAME SCRIPT_FILENAME PATH_INFO),
-        grep { /^REDIRECT_/ } keys %ENV
+        grep /^REDIRECT_/, keys %ENV
     };
 
     $ENV{PATH_INFO} = $path_info if defined $path_info;
diff --git a/PLP/HowTo.pod b/PLP/HowTo.pod
index e6b0354..93bacb2 100644
--- a/PLP/HowTo.pod
+++ b/PLP/HowTo.pod
@@ -1,72 +1,73 @@
-=head1 Name
+=head1 NAME
 
 PLP::HowTo - Some examples of commong web things in PLP.
 
-=head1 How to...
+=head1 HOW TO...
 
 Additional Perl functionality is often available in modules. All of the modules
 used in this document are available (for free) at CPAN: http://search.cpan.org/
 
-=over 10
+=head2 send a cookie
 
-=item send a cookie
+ <: 
+     BEGIN {
+	 use CGI::Cookie;
+	 AddCookie(
+	     CGI::Cookie->new(
+		 -name => 'ID',
+		 -value => 123456,
+		 -domain => 'foo.com',
+		 -path => '/'
+	     )->as_string
+	 );
+     }
+ :>
 
-    <: 
-	BEGIN {
-	    use CGI::Cookie;
-	    AddCookie( CGI::Cookie->new(
-		-name => 'ID',
-		-value => 123456,
-		-domain => 'foo.com',
-		-path => '/'
-	    )->as_string );
-	}
-    :>
+=head2 get a cookie
 
-=item get a cookie
+ Your user ID is <:= $cookie{ID} :>
 
-    Your user ID is <:= $cookie{ID} :>
+=head2 set a header
 
-=item set a header
+ <:
+     BEGIN {
+         $header{Content_Type} = 'text/plain';
+     }
+ :>
 
-    <:
-	BEGIN {
-	    $header{Content_Type} = 'text/plain';
-	}
-    :>
-
-=item use a database
+=head2 use a database
 
 Use DBI, and alternatively, one of the many simplifying modules. Drivers for
 DBI are in the DBD:: namespace. DBI loads the driver automatically, but it has
 to be available.
 
-    <:
-	use DBIx::Simple; # and read its documentation for examples.
-    :>
+ <:
+     use DBIx::Simple; # and read its documentation for examples.
+ :>
 
-=item allow a user to upload a file
+=head2 allow a user to upload a file
 
 Use CGI.pm, which can be used with CGI::Upload to make things easier
 
-    <:
-	use CGI;         # and don't use %post in your PLP document.
-	use CGI::Upload; # and read its documentation for examples.
-	my $cgi = CGI->new;
-	my $upload = CGI::Upload->new($cgi);
-	...
-    :>
-=item download a file into a variable
+ <:
+     use CGI;         # and don't use %post in your PLP document.
+     use CGI::Upload; # and read its documentation for examples.
+     my $cgi = CGI->new;
+     my $upload = CGI::Upload->new($cgi);
+     ...
+ :>
+
+=head2 download a file into a variable
 
-    <:
-	use LWP::Simple;
-	my $page = get("http://foo.com/bar.html");
-    :>
+ <:
+     use LWP::Simple;
+     my $page = get 'http://foo.com/bar.html';
+ :>
 
-=back
+=head1 FEEDBACK
 
 If you have good, simple examples of how to do common things with PLP, please
-send them! (juerd@cpan.org)
+send them! <juerd@cpan.org>
 
 =cut
 
-- 
2.30.0