Change 29515 by [EMAIL PROTECTED] on 2006/12/11 16:53:58
As pointed out by Valentin Guignon, there is most
probably one \n too many in the end-of-pod marker.
Affected files ...
... //depot/perl/lib/Switch.pm#22 edit
Differences ...
==== //depot/perl/lib/Switch.pm#22 (text) ====
Index: perl/lib/Switch.pm
--- perl/lib/Switch.pm#21~29349~ 2006-11-22 06:30:19.000000000 -0800
+++ perl/lib/Switch.pm 2006-12-11 08:53:58.000000000 -0800
@@ -4,7 +4,7 @@
use vars qw($VERSION);
use Carp;
-$VERSION = '2.11';
+$VERSION = '2.12';
# LOAD FILTERING MODULE...
@@ -73,7 +73,7 @@
}
-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
End of Patch.
