diff options
| author | Andreas König <a.koenig@mind.de> | 2006-11-19 06:41:53 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-11-20 13:36:10 +0000 |
| commit | de734bd5c0f518849c823cf9035c5583d1cd8d67 (patch) | |
| tree | ea13ce1eed700b19d0936200039a3b92b2e768d8 /ext/re | |
| parent | 8c823cd6ff89c1e53ff20884d165110a554717d9 (diff) | |
| download | perl-de734bd5c0f518849c823cf9035c5583d1cd8d67.tar.gz | |
Patch by Yves Orton to fix the regression reported in :
Subject: 28325/6 break DateTime::Format::Strptime
Message-ID: <877ixs6oa6.fsf@k75.linux.bogus>
p4raw-id: //depot/perl@29324
Diffstat (limited to 'ext/re')
| -rw-r--r-- | ext/re/t/lexical_debug.pl | 2 | ||||
| -rw-r--r-- | ext/re/t/lexical_debug.t | 2 | ||||
| -rw-r--r-- | ext/re/t/regop.t | 16 |
3 files changed, 10 insertions, 10 deletions
diff --git a/ext/re/t/lexical_debug.pl b/ext/re/t/lexical_debug.pl index 6cdfa49b66..3ec7455ba1 100644 --- a/ext/re/t/lexical_debug.pl +++ b/ext/re/t/lexical_debug.pl @@ -21,7 +21,7 @@ no re 'debug'; /fop/ and $count++; use re 'debug'; -my $var='zoo|zil|zap'; +my $var='zoo|liz|zap'; /($var)/ or $count++; print "Count=$count\n"; diff --git a/ext/re/t/lexical_debug.t b/ext/re/t/lexical_debug.t index b6a3dcb8ab..3c3f7ba316 100644 --- a/ext/re/t/lexical_debug.t +++ b/ext/re/t/lexical_debug.t @@ -29,7 +29,7 @@ ok( $out =~ /EXACT <baz>/, "Expect 'baz'" ); ok( $out !~ /EXACT <bop>/, "No 'bop'" ); ok( $out =~ /EXACT <fip>/, "Expect 'fip'" ); ok( $out !~ /EXACT <fop>/, "No 'baz'" ); -ok( $out =~ /<zil>/, "Got 'zil'" ); # in a TRIE so no EXACT +ok( $out =~ /<liz>/, "Got 'liz'" ); # in a TRIE so no EXACT ok( $out =~ /<zoo>/, "Got 'zoo'" ); # in a TRIE so no EXACT ok( $out =~ /<zap>/, "Got 'zap'" ); # in a TRIE so no EXACT ok( $out =~ /Count=7\n/, "Count is 7") diff --git a/ext/re/t/regop.t b/ext/re/t/regop.t index f586d22eed..3fa766960e 100644 --- a/ext/re/t/regop.t +++ b/ext/re/t/regop.t @@ -155,12 +155,12 @@ minlen 3 # Final program: # 1: EXACT <ABC>(3) # 3: TRIEC-EXACT<S:4/10 W:6 L:1/1 C:24/7>[A-EGP](20) -# <ABCP> -# <ABCG> -# <ABCE> -# <ABCB> -# <ABCA> -# <ABCD> +# <P> +# <G> +# <E> +# <B> +# <A> +# <D> # 20: END(0) # anchored "ABC" at 0 (checking anchored) minlen 4 # Offsets: [20] @@ -174,7 +174,7 @@ minlen 3 # 3 <ABC> <D> | State: 4 Accepted: 0 Charid: 7 CP: 44 After State: a # 4 <ABCD> <> | State: a Accepted: 1 Charid: 6 CP: 0 After State: 0 # got 1 possible matches -# only one match left: #6 <ABCD> +# only one match left: #6 <D> # 4 <ABCD> <> | 20:END(0) # Match successful! # %MATCHED% @@ -183,7 +183,7 @@ minlen 3 EXACT <ABC> TRIEC-EXACT [A-EGP] -only one match left: #6 <ABCD> +only one match left: #6 <D> S:4/10 W:6 L:1/1 |