Switch qw delimiters to <>

[perl/modules/Sub-Nary.git] / t / 21-list.t

diff --git a/t/21-list.t b/t/21-list.t
index 4dc492a811480b81dfa01965b9d46b23d8591047..7fa217bc8c5673ec3ed40b402298c36be741f9b7 100644 (file)
--- a/t/21-list.t
+++ b/t/21-list.t
@@ -33,7 +33,7 @@ my @tests = (
 
  [ sub { %h },          'list' ],
  [ sub { $h{a} },       1 ],
- [ sub { @h{qw/a b/} }, 2 ],
+ [ sub { @h{qw<a b>} }, 2 ],
  [ sub { keys %h },     'list' ],
  [ sub { values %h },   'list' ],