From 58ba42c837f8e53c9999bbb388e55e5797ca573d Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Mon, 11 Dec 2006 09:08:01 -0800 Subject: [PATCH] import Switch 2.12 from CPAN git-cpan-module: Switch git-cpan-version: 2.12 git-cpan-authorid: RGARCIA git-cpan-file: authors/id/R/RG/RGARCIA/Switch-2.12.tar.gz --- Changes | 4 ++++ META.yml | 2 +- README | 7 +++---- Switch.pm | 4 ++-- 4 files changed, 10 insertions(+), 7 deletions(-) diff --git a/Changes b/Changes index da26893..eea9823 100644 --- a/Changes +++ b/Changes @@ -84,3 +84,7 @@ Revision history for Perl extension Switch. - Fix documentation issues - Fix installation directory for perls >= 5.7.3 (Slaven Rezic) + +2.12 Mon Dec 11 2006 + + - Fix bug in parsing POD at end of document (Valentin Guignon) diff --git a/META.yml b/META.yml index 1c57b61..18db15e 100644 --- a/META.yml +++ b/META.yml @@ -1,7 +1,7 @@ # http://module-build.sourceforge.net/META-spec.html #XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX# name: Switch -version: 2.11 +version: 2.12 version_from: Switch.pm installdirs: perl requires: diff --git a/README b/README index 7e4fdcf..e4f2563 100644 --- a/README +++ b/README @@ -1,5 +1,5 @@ ============================================================================== - Release of version 2.11 of Switch + Release of version 2.12 of Switch ============================================================================== @@ -27,11 +27,10 @@ COPYRIGHT ============================================================================== -CHANGES IN VERSION 2.11 +CHANGES IN VERSION 2.12 - - Fix documentation issues - - Fix installation directory for perls >= 5.7.3 (Slaven Rezic) + - Fix bug in parsing POD at end of document (Valentin Guignon) ============================================================================== diff --git a/Switch.pm b/Switch.pm index 7af47ff..c6d3931 100644 --- a/Switch.pm +++ b/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