Test interaction with eval STRING

[perl/modules/indirect.git] / t / 21-bad.t

diff --git a/t/21-bad.t b/t/21-bad.t
index 5984ef03ba031984995b00508c9d464162b7ba57..c5944622871bd5cec19b0916779725f78d2e9cdf 100644 (file)
--- a/t/21-bad.t
+++ b/t/21-bad.t
@@ -219,7 +219,7 @@ $obj = new $x qr{foo\s+bar}, 1 .. 1;
 ----
 [ 'new', '$x' ]
 ####
-$obj = new $x(qw/bar baz/);
+$obj = new $x(qw<bar baz>);
 ----
 [ 'new', '$x' ]
 ####