From 5588bb195b0bcc9b3d890a1e1f8100bf295a6718 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Mon, 11 Dec 2006 16:53:58 +0000
Subject: [PATCH] As pointed out by Valentin Guignon, there is most probably
 one \n too many in the end-of-pod marker.

p4raw-id: //depot/perl@29515
---
 lib/Switch.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/Switch.pm b/lib/Switch.pm
index 7af47ff..c6d3931 100644
--- a/lib/Switch.pm
+++ b/lib/Switch.pm
@@ -4,7 +4,7 @@ use strict;
 use vars qw($VERSION);
 use Carp;
 
-$VERSION = '2.11';
+$VERSION = '2.12';
 
 
 # LOAD FILTERING MODULE...
@@ -73,7 +73,7 @@ sub is_block
 }
 
 
-my $EOP = qr/\n\n|\Z/;
+my $EOP = qr/\n|\Z/;
 my $CUT = qr/\n=cut.*$EOP/;
 my $pod_or_DATA = qr/ ^=(?:head[1-4]|item) .*? $CUT
                     | ^=pod .*? $CUT
-- 
2.7.4