diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-01-08 18:33:58 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-01-08 18:33:58 +0000 |
| commit | 338196225c6d8ddee7f9a4fda43997b5052acf9d (patch) | |
| tree | 96f67de743744b54e7e20903750dd99de8932979 /t | |
| parent | e7152ba2733b9227708ca768b222144415c13c66 (diff) | |
| parent | 545c8fcc728233d7cb0aa3a09282862571bb953e (diff) | |
| download | perl-338196225c6d8ddee7f9a4fda43997b5052acf9d.tar.gz | |
[win32] Integrate mainline
p4raw-id: //depot/win32/perl@411
Diffstat (limited to 't')
| -rw-r--r-- | t/op/re_tests | 3 | ||||
| -rwxr-xr-x | t/pragma/locale.t | 8 |
2 files changed, 7 insertions, 4 deletions
diff --git a/t/op/re_tests b/t/op/re_tests index 29a6518cd9..b688a167f2 100644 --- a/t/op/re_tests +++ b/t/op/re_tests @@ -430,4 +430,7 @@ $(?<=^(a)) a y $1 a (?{$a=2})a*aa(?{local$a=$a+1})k*c(?{$b=$a}) yaaxxaaaacd y $b 3 (?{$a=2})(a(?{local$a=$a+1}))*aak*c(?{$b=$a}) yaaxxaaaacd y $b 4 (>a+)ab aaab n - - +(?>a+)b aaab y - - +((?>a+)b) aaab y $1 aaab +(?>(a+))b aaab y $1 aaa ((?>[^()]+)|\([^()]*\))+ ((abc(ade)ufh()()x y $& abc(ade)ufh()()x diff --git a/t/pragma/locale.t b/t/pragma/locale.t index 8e296db8a7..d068465fb3 100755 --- a/t/pragma/locale.t +++ b/t/pragma/locale.t @@ -283,13 +283,13 @@ locatelocale(\$Spanish, \@Spanish, # Select the largest of the alpha(num)bets. ($Locale, @Locale) = ($English, @English) - if (length(@English) > length(@Locale)); + if (@English > @Locale); ($Locale, @Locale) = ($German, @German) - if (length(@German) > length(@Locale)); + if (@German > @Locale); ($Locale, @Locale) = ($French, @French) - if (length(@French) > length(@Locale)); + if (@French > @Locale); ($Locale, @Locale) = ($Spanish, @Spanish) - if (length(@Spanish) > length(@Locale)); + if (@Spanish > @Locale); print "# Locale = $Locale\n"; print "# Alnum_ = @Locale\n"; |