In VMS embedded perls couldn't access the statically built Socket,

[p5sagit/p5-mst-13.2.git] / t / op / misc.t

diff --git a/t/op/misc.t b/t/op/misc.t
index 6d05046..0db36c9 100755 (executable)
--- a/t/op/misc.t
+++ b/t/op/misc.t
@@ -596,6 +596,7 @@ for (@locales) {
 }
 EXPECT
 ########
-sub m {}
+die qr(x)
 EXPECT
-Subroutine name "m" reserved for string operators at - line 1.
+(?-xism:x) at - line 1.
+########