diff options
| author | Nicholas Clark <nick@ccl4.org> | 2021-06-15 12:03:55 +0000 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2021-07-31 15:24:26 -0700 |
| commit | 900d3b30296b2e23a5ebe1c5e277b46665a1ce6d (patch) | |
| tree | 3f02ed8c47c2317c2f94a019d5ae9df476549d35 /ext/B | |
| parent | 6bce142c8b777339676742d282ed0519b3c95aa8 (diff) | |
| download | perl-900d3b30296b2e23a5ebe1c5e277b46665a1ce6d.tar.gz | |
The sort pragma is now a no-op. It no longer sets or clears any hints bits.
sort::current() now issues a deprecation warning and always returns "stable".
Diffstat (limited to 'ext/B')
| -rw-r--r-- | ext/B/t/f_sort.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ext/B/t/f_sort.t b/ext/B/t/f_sort.t index 24a9f2e38c..b78eec2beb 100644 --- a/ext/B/t/f_sort.t +++ b/ext/B/t/f_sort.t @@ -653,7 +653,7 @@ my ($expect, $expect_nt) = (<<'EOT_EOT', <<'EONT_EONT'); # 3 <0> pushmark s # 4 <#> gv[*old] s # 5 <1> rv2av[t9] lKM/1 -# 6 <@> sort lKS*/STABLE +# 6 <@> sort lKS* # 7 <0> pushmark s # 8 <#> gv[*new] s # 9 <1> rv2av[t2] lKRM*/1 @@ -665,7 +665,7 @@ EOT_EOT # 3 <0> pushmark s # 4 <$> gv(*old) s # 5 <1> rv2av[t5] lKM/1 -# 6 <@> sort lKS*/STABLE +# 6 <@> sort lKS* # 7 <0> pushmark s # 8 <$> gv(*new) s # 9 <1> rv2av[t1] lKRM*/1 |