This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
As pointed out by Valentin Guignon, there is most
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 11 Dec 2006 16:53:58 +0000 (16:53 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 11 Dec 2006 16:53:58 +0000 (16:53 +0000)
probably one \n too many in the end-of-pod marker.

p4raw-id: //depot/perl@29515

lib/Switch.pm

index 7af47ff..c6d3931 100644 (file)
@@ -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