diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-09-29 20:05:24 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-09-29 20:05:24 +0000 |
| commit | ab13f0c73a71a1ea41c4bdcd1f78f8b903cc458c (patch) | |
| tree | 9671965b883a22f439da320a0724a8f40d5a5ff9 /lib | |
| parent | 2d6b165414a36b2f7babc9ffdf83d659589dd9eb (diff) | |
| download | perl-ab13f0c73a71a1ea41c4bdcd1f78f8b903cc458c.tar.gz | |
More leniency to the \p and \P: now can have whitespace
between the property definition and the curlies; now can
invert the property by having a caret between the open
curly and the property.
p4raw-id: //depot/perl@12269
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/utf8_heavy.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/utf8_heavy.pl b/lib/utf8_heavy.pl index e8cf0cc4ab..e86b727397 100644 --- a/lib/utf8_heavy.pl +++ b/lib/utf8_heavy.pl @@ -26,7 +26,7 @@ sub SWASHNEW { while (($caller = caller($i)) eq __PACKAGE__) { $i++ } my $encoding = $enc{$caller} || "unicore"; (my $file = $type) =~ s!::!/!g; - if ($file =~ /^In[- ]?(.+)/i) { + if ($file =~ /^In[- _]?(.+?)$/i) { my $In = $1; defined %utf8::In || do "$encoding/In.pl"; my $prefix = substr(lc($In), 0, 3); |