diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-12-11 16:53:58 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-12-11 16:53:58 +0000 |
| commit | 5588bb195b0bcc9b3d890a1e1f8100bf295a6718 (patch) | |
| tree | 3741eedb9e70fcc719c5da083feb70809bb85278 /lib/Switch.pm | |
| parent | 59c368f158aa55efb9d93ac934b96cd775ca5903 (diff) | |
| download | perl-5588bb195b0bcc9b3d890a1e1f8100bf295a6718.tar.gz | |
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
Diffstat (limited to 'lib/Switch.pm')
| -rw-r--r-- | lib/Switch.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Switch.pm b/lib/Switch.pm index 7af47ffa76..c6d3931c26 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 |