From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Mon, 11 Dec 2006 16:53:58 +0000 (+0000)
Subject: As pointed out by Valentin Guignon, there is most
X-Git-Tag: accepted/trunk/20130322.191538~16388
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=5588bb195b0bcc9b3d890a1e1f8100bf295a6718;p=platform%2Fupstream%2Fperl.git

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
---

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