From: Wolfgang Laun <Wolfgang.Laun@alcatel.at>
Date: Sat, 24 Feb 2007 15:08:44 +0000 (+0100)
Subject: Re: [perl #41513] (parsing?)problem when using a '/' followed by a Switch statement
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4f8a7904197dd025b819b8286e290f52246539b7;p=p5sagit%2Fp5-mst-13.2.git

Re: [perl #41513] (parsing?)problem when using a '/' followed by a Switch statement
From: "Wolfgang Laun" <wolfgang.laun@gmail.com>
Message-ID: <17de7ee80702240608n1411ef67xcdd1ffb238742bc1@mail.gmail.com>

p4raw-id: //depot/perl@30397
---

diff --git a/lib/Switch.pm b/lib/Switch.pm
index c6d3931..d7658ba 100644
--- a/lib/Switch.pm
+++ b/lib/Switch.pm
@@ -4,7 +4,7 @@ use strict;
 use vars qw($VERSION);
 use Carp;
 
-$VERSION = '2.12';
+$VERSION = '2.13';
 
 
 # LOAD FILTERING MODULE...
@@ -101,7 +101,18 @@ sub filter_blocks
 		if (defined $pos[0])
 		{
 			my $pre = substr($source,$pos[0],$pos[1]); # matched prefix
-			$text .= $pre . substr($source,$pos[2],$pos[18]-$pos[2]);
+                        my $iEol;
+                        if( substr($source,$pos[4],$pos[5]) eq '/' && # 1st delimiter
+                            substr($source,$pos[2],$pos[3]) eq '' && # no op like 'm'
+                            index( substr($source,$pos[16],$pos[17]), 'x' ) == -1 && # no //x
+                            ($iEol = index( $source, "\n", $pos[4] )) > 0         &&
+                            $iEol < $pos[8] ){ # embedded newlines
+                            # If this is a pattern, it isn't compatible with Switch. Backup past 1st '/'.
+                            pos( $source ) = $pos[6];
+			    $text .= $pre . substr($source,$pos[2],$pos[6]-$pos[2]);
+			} else {
+			    $text .= $pre . substr($source,$pos[2],$pos[18]-$pos[2]);
+			}
 			next component;
 		}
 		if ($source =~ m/\G\s*($pod_or_DATA)/gc) {
@@ -849,7 +860,11 @@ Bug reports and other feedback are most welcome.
 
 =head1 LIMITATIONS
 
-Due to the heuristic nature of Switch.pm's source parsing, the presence
+Due to the heuristic nature of Switch.pm's source parsing, the presence of
+regexes with embedded newlines that are specified with raw C</.../>
+delimiters and don't have a modifier C<//x> are indistinguishable from
+code chunks beginning with the division operator C</>. As a workaround
+you must use C<m/.../> or C<m?...?> for such patterns. Also, the presence
 of regexes specified with raw C<?...?> delimiters may cause mysterious
 errors. The workaround is to use C<m?...?> instead.