diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-01-26 21:45:41 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-01-26 21:45:41 +0000 |
| commit | 0120eecf48d66b2c5ac028f653ce37c6a866b26b (patch) | |
| tree | 4672762c58abfd7b87c1c311161e80225991136b /lib/SelfLoader.pm | |
| parent | 58231d3970cba2e1fc56f38812334ee802d7acf6 (diff) | |
| download | perl-0120eecf48d66b2c5ac028f653ce37c6a866b26b.tar.gz | |
revised attribute syntax: C<my $foo :a :b :c>, C<my $foo : a b c>
and C<my $foo : a : b : c> are all valid (from Spider Boardman)
p4raw-id: //depot/perl@4907
Diffstat (limited to 'lib/SelfLoader.pm')
| -rw-r--r-- | lib/SelfLoader.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/SelfLoader.pm b/lib/SelfLoader.pm index 4672ac49da..2aa29303fd 100644 --- a/lib/SelfLoader.pm +++ b/lib/SelfLoader.pm @@ -3,7 +3,7 @@ package SelfLoader; require Exporter; @ISA = qw(Exporter); @EXPORT = qw(AUTOLOAD); -$VERSION = "1.09"; +$VERSION = "1.0901"; sub Version {$VERSION} $DEBUG = 0; @@ -12,7 +12,7 @@ my %Cache; # private cache for all SelfLoader's client packages # allow checking for valid ': attrlist' attachments my $nested; $nested = qr{ \( (?: (?> [^()]+ ) | (?p{ $nested }) )* \) }x; -my $one_attr = qr{ (?> (?! \d) \w+ (?:$nested)? ) [\s,]* }x; +my $one_attr = qr{ (?> (?! \d) \w+ (?:$nested)? ) (?:\s*\:\s*|\s+(?!\:)) }x; my $attr_list = qr{ \s* : \s* (?: $one_attr )* }x; sub croak { require Carp; goto &Carp::croak } |