Change #20578 to SelfLoader is probably also useful to AutoSplit.
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Sat, 9 Aug 2003 12:43:50 +0000 (12:43 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Sat, 9 Aug 2003 12:43:50 +0000 (12:43 +0000)
p4raw-id: //depot/perl@20583

lib/AutoSplit.pm

index 7fd9487..9355bfd 100644 (file)
@@ -148,10 +148,12 @@ if (defined (&Dos::UseLFN)) {
 my $Is_VMS = ($^O eq 'VMS');
 
 # allow checking for valid ': attrlist' attachments
-my $nested;
+# (we use 'our' rather than 'my' here, due to the rather complex and buggy
+# behaviour of lexicals with qr// and (??{$lex}) )
+our $nested;
 $nested = qr{ \( (?: (?> [^()]+ ) | (??{ $nested }) )* \) }x;
-my $one_attr = qr{ (?> (?! \d) \w+ (?:$nested)? ) (?:\s*\:\s*|\s+(?!\:)) }x;
-my $attr_list = qr{ \s* : \s* (?: $one_attr )* }x;
+our $one_attr = qr{ (?> (?! \d) \w+ (?:$nested)? ) (?:\s*\:\s*|\s+(?!\:)) }x;
+our $attr_list = qr{ \s* : \s* (?: $one_attr )* }x;