diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-03 02:19:50 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-03 02:19:50 +0000 |
| commit | 14455d6cc193f1e4316f87b9dbe258db24ceb714 (patch) | |
| tree | 0722cfd9590d6e717d6a7f06bbb534593146dee6 /lib/AutoSplit.pm | |
| parent | 36f31b5005f0d5567cbdeeea5b6180abf2936b23 (diff) | |
| download | perl-14455d6cc193f1e4316f87b9dbe258db24ceb714.tar.gz | |
/(?p{})/ changed to /(??{})/, per Larry's suggestion (from
Simon Cozens <simon@othersideofthe.earth.li>)
p4raw-id: //depot/perl@5467
Diffstat (limited to 'lib/AutoSplit.pm')
| -rw-r--r-- | lib/AutoSplit.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/AutoSplit.pm b/lib/AutoSplit.pm index ecdb039987..0be3ae6765 100644 --- a/lib/AutoSplit.pm +++ b/lib/AutoSplit.pm @@ -148,7 +148,7 @@ my $Is_VMS = ($^O eq 'VMS'); # allow checking for valid ': attrlist' attachments my $nested; -$nested = qr{ \( (?: (?> [^()]+ ) | (?p{ $nested }) )* \) }x; +$nested = qr{ \( (?: (?> [^()]+ ) | (??{ $nested }) )* \) }x; my $one_attr = qr{ (?> (?! \d) \w+ (?:$nested)? ) (?:\s*\:\s*|\s+(?!\:)) }x; my $attr_list = qr{ \s* : \s* (?: $one_attr )* }x; |