Restrict the valid identifier syntax, fix some identifier bugs.

[perl5.git] / t / lib / croak / op

diff --git a/t/lib/croak/op b/t/lib/croak/op
index 86e40f8..22f1e76 100644 (file)
--- a/t/lib/croak/op
+++ b/t/lib/croak/op
@@ -5,14 +5,6 @@ EXPECT
 Can't use global $! in "my" at - line 1, near "my $!"
 Execution of - aborted due to compilation errors.
 ########
-# NAME my $<special_unicode>
-use utf8;
-BEGIN { binmode STDERR, ":utf8" }
-my $♠;
-EXPECT
-Can't use global $♠ in "my" at - line 3, near "my $♠"
-Execution of - aborted due to compilation errors.
-########
 # NAME OP_HELEM fields
 package Foo;
 use fields qw(a b);