diff options
| author | Yves Orton <demerphq@gmail.com> | 2012-08-28 09:23:15 +0200 |
|---|---|---|
| committer | Yves Orton <demerphq@gmail.com> | 2012-10-26 11:46:31 +0200 |
| commit | 4c7a7875773138f8b396c14a138aa11ee318f67d (patch) | |
| tree | b3cea5bb5e36c92e3cee854fbdab8e9a06ae5443 /ext/re | |
| parent | bb1ca2d4521fc3adcd31ac17b141f92c7ba6d1c9 (diff) | |
| download | perl-4c7a7875773138f8b396c14a138aa11ee318f67d.tar.gz | |
fix a hash order dependency in t/re_funcs_u.t
Diffstat (limited to 'ext/re')
| -rw-r--r-- | ext/re/t/re_funcs_u.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/re/t/re_funcs_u.t b/ext/re/t/re_funcs_u.t index 57d7281acf..3eec2894d0 100644 --- a/ext/re/t/re_funcs_u.t +++ b/ext/re/t/re_funcs_u.t @@ -41,7 +41,7 @@ if ('1234'=~/(?:(?<A>\d)|(?<C>!))(?<B>\d)(?<A>\d)(?<B>\d)/){ @names = sort +regnames(0); is("@names","A B","regnames"); my $names = regnames(); - is($names, "B", "regnames in scalar context"); + ok(($names eq "B" || $names eq "A"), "regnames in scalar context"); @names = sort +regnames(1); is("@names","A B C","regnames"); is(join("", @{regname("A",1)}),"13"); |