diff options
author | Paul "LeoNerd" Evans <leonerd@leonerd.org.uk> | 2021-05-31 22:35:40 +0100 |
---|---|---|
committer | Paul Evans <leonerd@leonerd.org.uk> | 2021-06-02 00:29:54 +0100 |
commit | eb7e169eaa8ff0e7e9a629f87889b08c355568e1 (patch) | |
tree | 50b61983fb3eb7854cb0b1933fc41007a37f95d2 /t | |
parent | 499aa13271ff03425a8258615a0702c5b830be8b (diff) | |
download | perl-eb7e169eaa8ff0e7e9a629f87889b08c355568e1.tar.gz |
Rename G_ARRAY to G_LIST; provide back-compat when not(PERL_CORE)
Diffstat (limited to 't')
-rw-r--r-- | t/op/aassign.t | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/t/op/aassign.t b/t/op/aassign.t index 41d7c82985..7ba9591821 100644 --- a/t/op/aassign.t +++ b/t/op/aassign.t @@ -386,9 +386,9 @@ SKIP: { # both keys and values stealable @a = (%h = (split /-/, "abc-def")[0,1,0,1]); - is (join(':', keys %h), "abc", "NOSTEAL split G_ARRAY keys"); - is (join(':', values %h), "def", "NOSTEAL split G_ARRAY values"); - is (join(':', @a), "abc:def", "NOSTEAL split G_ARRAY result"); + is (join(':', keys %h), "abc", "NOSTEAL split list-context keys"); + is (join(':', values %h), "def", "NOSTEAL split list-context values"); + is (join(':', @a), "abc:def", "NOSTEAL split list-context result"); } { |